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REVISTA INDEPENDIENTE PARA TSUARIOS DE ORDENADORES' . 
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RPA Systems, 
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la información 
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Venta a plazos hasta 36 meses. 
Servimos tiendas 
Te/: 22791 99 
I Nuevo Amstrad CPC6128 
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TARJETA DE SUSCRIPCION AHORRO/REGALO 


(Si lo prefieres suscríbete por teléfono (91) 733 50 12 (91) 733 50 16) 
Oferta especial para recibir en tu domicilio todo 'un año la revista semanal 
Microhobby AMSTRAD 
con un descuento de 1.600 ptas., iy el regalo de una cinta 
original por valor de 2.100 ptas.! 
rECHA LIMITE DE RESPUESTA: iSENALA EL NOMBRE DE LA CINTA QUE 
30 DE NOVIEMBRE DE 1985 PREFIERES Y LA RECIBIRAS EN TU CASA, 
¡RESPONDE HOY MISMO! GRATIS, A VUELTA DE CORREO! 


IJeseo suscnblfme a Mlcrohobby AMSTRAD duranle un ar,o por sólo 5,900 ptas" lo que me supone un ahorro de 1,600 ptas, 

I primer numero que deseo recibir es el- 
f:nvienme GRATIS la cmla de programas que le Indico con una (X) 
O Beach Head O Combat Lynx O D.T, Decathlon 
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NOMBRE EDAD 
APELLIDOS - 
DOMICILIO 
CIUDAD PROVINCIA 
 
C. POSTAL TELEFONO PROFESION = 
. '.' 


las capacidades gróficas del Amstrad, y la 
facilidad con que puede emplearse en el del código 
máquina quedan demostradas con el programo Frutos, 
una perfecta recreación de las máquinas tragaperras. 
Menudisc, segundo programa de Serie Oro, es 
una utilidad pensada para elegir cómodamente el 
programa que nos interese de un disco. 


Mmco con una (X) en el coslllero correspond,enfe la forma de pago que mas me conviene. 


o Talón bancario adlunto a nombre HOBBY PRESS, S. A O GirO Postal N o 
primer numero. Junto a la casselle regalo. O VISA N.o 
Fecha de caducidad de la tarjelJ 


o Contra reembOlSO del 
O MASTER CHARGE N° 


Firma: . 


Presidente 
María Andrina 
Consejero Delegado 
José l. Gómez-Centurión 


Jefe de Publicidad 
Cancho Gutiérr!!z 
Publicidad Barcelona 
José Galán Cortes 
Tel: (93) 303 1022/31371 62 


Además de los bucles de tipo WHllE... WEND 
existen los del tipo FOR... NEXT, caroe/erizados ' 
porque en el/os podemos saber por anticipado y con 
absoluta precisión el número de veces que va a 
repetirse la torea o «trozo» de programa determinado, 
debido a la propia estrue/ura del bucle, Primeros 
Pasos revisa estos nuevos comandos 8asic, 


Serie oro 


Secretaria de Dirección 
Morisa Cogorro 
Suscrlpciones 
M,o Rosa González 
M. a del Mar Calzada 
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Redacción, Administración 
y Publicidad 
La Gronja, s/n 
Polígono Industrial de Alcobendas 
Te!.: 6543211 
Telex: 49 480 HOPR 


24 ProgramA"ión 


Tercera y última parte de lo serie sobre animación 
empleando el 8asic Amstrad. 


Código Máquina 


Dto. Circulación 
Carlos Peropadre 
Distribución 
Caedis, S. A. Valencia, 245 
Barcelona 
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Imprime 
ROTEDIC, S. A. Crta. de Irún. 
Km. 12,450 (MADRID) 
Fotocomposlclón 
Novocomp, S.A. 
Nicolás Moroles, 38.40 
Fotomecánica 
GROF 
Ezequiel Solana, 1 ó 
Depósito Legal: 
M-28468-1985 
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Derechos exclusivos 
de lo revista 
COMPUTING with 
the AMSTRAD 
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Representante poro Argentino, Chile, 
Uruguay y Paraguay, Cia. 
Americano de Ediciones, S.R.L. Sud 
América 1.532. Tel.: 21 2464.1209 
BUENOS AIRES (Argentino). 
M. H. AMSTRAD no se hace 
necesariamente solidaria de 105 
opiniones vertidos por sus 
colaboradores en los artículos 
firmados. Reservados Iodos los 
derechos. 
Se solicitara control OJO 


Banco de JO 
pruebas 
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las bases de datos siempre han sido lo aplicación 
reina entre los ordenadores, En este número revisamos 
en profundidad un programa escrito por RPA para 
Amstrad. 


Estudiamos en detalle tres rutinas de lenguaie 
máquina para mostrar la utilidad del mismo y cómo 
puede interaccionar con el 8asic de tu ordenador. 


\\ 


.....J.,
 ,. 



')-I
"
 
\ ' 
: 
;" 



1h: ' 


fj- ; 


- r r.


t
 J 
'LJbI'¡" .
 
r 
.'
f ' 
. 
 

' 1, 
;, 
?I:
A 
i, -f,":':' 
J '

 " 
k
 [
¡ :

 f) 
¡
 I'J
 
r
 
 
i
i 

f'" 
!till: 
r
 
\,c,.J 


.f¡
 1 1 
.
) 
:':) 
/,:;\ 
1;.... 
!,
 

 

 

 
l.}" 
,
 

:") 


MICROH088YAMSTRAD 3 



[ 


------- 09" 
6 40.9 0 
46' 
Al11str od d e 
"er 


I 
I 
I 
I 
I · 
I 
I 
I 


\\ 


.... 
....- 
.. 


a IU
 a .. 
"'1... 
19"10.. 


r--'\ 
l." 


...:.
 up..'- 
.... .p.
"v."\lt\" 
o" !. p.S\
_ 

 
t"'-- 
»,," \\\ " 
._ A t 


8S":\C 
n\i'\ .' 
,,- 


"'J,,.......
 " 


'I''-I/.\: 
'\- 


..- 


- 


----- 
Al COlJ1 p 
rOr to A 
te re gol IJ1strod 
OlJ1os . 
· Estuche 
0";g;1101 COI1 ocho P 
es ,.og,.o.... 
"'Qs 


f fdlHIIICO 
P(J
I;)I 


ui 
c::( 

 
o 
o 
<D 
,... 
c::( 
a:: 
a:: 
O 
J: 
c::( 
> 
- e 
c::( 
_ a:: 
1- 
(/J 

 
'::'- c::( 
- >- 
l' ,Q 
- ,Q 
o 
.c 
o 
.. 
.!:! 

 
c::( 
w 
tu 
ea 
a: 
u 
(/J 
:J 
(/J 


HOBBY PBESS,S.A. 


Apartado de Correos 
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Venta a plazos hasta 36 meses. 
Servimos tiendas 
Te/: 227 91 99 
Nuevo Amstrad CPC6128 
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América 1.532. Tel.: 21 2464.1209 
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ño /- Número 9- 29 de 'Jctubre 014 de Noviembre 
de 7985 150 ptas. (sobretasa Canarias, Tu ptas.) 


5 Primera 
plana 


Primer centro de investigación y desarrolla de 
Inteligencia Artih'cial en España. Diseño asistido por 
ordenador, 
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Primeros pasos 


Además de los bucles de tipo WHllE... WEND, 
existen los del tipo FOR... NEXT, caracterizados 
porque en ellos podemos saber por anticipado y con 
absoluta precisión el número de veces que va a 
repetirse la tarea o «trozo» de programa determinado, 
debido a lo propia estructura del bucle. Primeros 
Pasos revisa estos nuevos comandos Basie. 
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las bases de datos siempre han sido la aplicación 
reina entre los ordenadores, En este número revisamos 
en profundidad un programa escrito por RPA para 
Amstrad. 
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las capacidades gráficos del Amstrad, y la 
facilidad con que puede emplearse en el del código 
máquina quedan demostradas con el programa Frutas, 
una perfecta recreación de las máquinas tragaperras. 
Menudisc, segundo programa de Serie Oro, es 
una utilidad pensada para elegir cómodamente el 
programa que nos interese de un disco. 


24 ProgramA"ión 


Tercera y última parte de la serie sobre animación 
empleando el Basic Amstrad. 
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Código Máquina 


Estudiamos en detalle tres rutinas de lengua/e 
móquina para mostrar la utilidad del mismo y cómo 
puede interaccionar con el Basic de tu ordenador. 
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1 PROCESADOR DE TEXTOS 
ildeal para escribir cartas e informes! 
Características: Visualización continua del 
tiempo. Contador de palabras (indicando 
las palabras por minuto) . Texto normal o 
doble, en pantalla o impresora. 
2 HOJA DE CALCULO 
¡Utiliza tu micro para controlar tus cuentas! 
Características: Cifras visualizadas en filas 
y columnas. Actualización permanente. 
Actualización reflejada instantáneamente 
en toda la hoja. Grabación de los 
resultados para futuras modificaciones. 
3 GRAFICOS 
iConvierte esos números en maravillosos 
gráficos! Características: Gráficos de barras 
en tres dimensiones. Gráficos de pastel. 
Histogramas, 
4 BASE DE DATOS 
ilgual que los archivos de la oficina! 
Características: Cargar ficheros con solo 
pulsar una tecla. Clasificación. 
Modificación. Listados. Búsqueda. 
* En Castellana 
* Servimos en 
48 Horas 
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I Envíenas a MICRO BYTE I 
, --J P.o Castellana, 179, 1.°. 28046 MADRID I 
J< L Mil, 
Nombre 
Apellidos 
Dirección 
Población 
D P 


*Versión disco AMSTRAD p.v.p, 3.900 ptas. 


Teléfono 


.,/'1 


Deseo que me envíen O ejemplar/es 
del programa MINI OFFICE 
PARA EL MICROORDENADOR 
SEÑALADO I 
O AMSTRAD O COMMODORE O SPECTRUM 
O AMSTRAD VERSION DISCO 
Sin gastas de envio 
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INCLUYO TALON NOMINATIVO O 
CONTRA-REEMBOLSO O 


Pedidos por teléfono 
91 - 442 54 33/44 
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r.l... TELIGENCI · 
· RTIFICIAL 
N ESPAÑA 


n Blanes, el Consejo Supe- 
rior de Investigaciones Científicas, 
inauguró el 14 de octubre el primer 
Centro de Investigación y Desarrollo 
de Inteligencia Artificial en Esp<;Jña. 
La nueva instalación, presumlble- 
mente, se dedicará a la creación de 
sistemas expertos y de programas 
que puedan simular y reproducir, en 
la medida de lo posible, la facultad 
del razonamiento humano. 
Desde hace ya algún tiempo, el 
éxito conseguido en el desarrollo de 
sistemas expertos en áreas muy es- 
pecíficas del conocimiento, ha impul- 
sado enormemente esta faceta de la 
investigación informática que cami- 
na a pasos agigantados hacia con- 
vertirse en la industria más importan- 
te del siglo XX, tanto por el desafío 
tecnológico que plantea, como 
or 
las implicaciones filosóficas y socIa- 
les que supone la aparición y opera- 
tividad de sistemas «pensantes» no 
humanos. 
Esperemos que nuestro país reco- 
rra pronto la distancia que nos sepa- 
ra de otras naciones desarrolladas 
en el campo de la Inteligencia Artifi- 
cial. 


i'imiIIImiJ .."..... 


TURGEON 
LLEGA A ESPAÑA 


Una importante empresa cana- 
diense especializada en software y li- 
bros de informática, proyecta insta- 
larse en España y otros países euro- 
peos. 
Para comenzar, se ha formado en 
Francia T urgeon Europe, junto con la 
editorial Masson, para empezar ya 
mismo a comercializar sus productos 
en Europa. 


CADICAM, 
A CANARIAS 


Canarias solicita uno de los ocho 
centros Cad/Cam previstos en el Plan 
Informático Nacional. Al parecer, el 
tema se trató entre el vicepresidente 
del Gobierno canario y el ministro de 
Industria. Los sistemas Cad/Cam son 
equipos que utilizan un software so- 
fisticado y un hardware en conso- 
nancia para realizar la función de di- 
seño asistido por ordenador, en in- 
glés Computer Assistance Design. 
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I 
TRANSPUTER 


ste es el nombre del nue- 
vo procesador que viene a revolucio- 
nar el mundo de la informática. 
Desarrollado por la casa Inmos, su 
producción masiva comenzará en la 
segunda mitad del año 86. 
La principal cualidad de este chip, 
es que desarrolla todas las labores 
propias de un ordenador, con la 
ventaja de que los cálculos son rea- 
lizados más rápidamente. 
El T ransputer ha sido diseñado de 
manera que incluye en un solo chip: 
proceso de datos, memoria y comu- 
nicaciones. 
La capacidad de acceso del pro- 
cesador por sí mismo es de 2 a 4 
Kbytes de memoria RAM dinámica, 
la memoria puede ser ampliada me- 
diante un chip especial, que median- 
te un interface une directamente la 
RAM estática con la dinámica, per- 
mitiendo una velocidad de transmi- 
sión de datos de hasta 26 Mbytes por 
segundo. 
La gran ventaja de este ingenio, es 
que permite la conexión en paralelo 
sin la pérdida de tiempo de proceso 
que representa el organizar la comu- 
nicación entre las partes componen- 
tes de un sistema. 


COMUNICACIONES 
Una de las cosas más útiles que pueden ha- 
cerse con un ordenador es usarlo como ter- 
minal inteligente enlazado a un «mainfra- 
me», o super computador. 
Para conseguirlo, ambas máquinas deben 
ser capaces de hablarse entre sí siguiendo un 
cierto protocolo de comunicaciones, 
Uno de estos protocolos, el OSI, para Euro- 
pa, ve engrosadas las filas de sus partidarios 
con la incorporación de la empresa Honey- 
well. Un paso importante hacia la conversión 
en standard de un sistema al que ya pertene- 
cen IBM y Digital. 
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: UCLES FOR 


EXT 


La gran ventaja que ofrecen los ordenadores, es que una vez que se ha programado una 
determinada tarea, estos la pueden repetir un gran número de veces sin que intervenga 
la mano del hombre. 
Conseguir que se produzcan este número de repeticiones, solamente implica dos líneas 
adicionales de programa. 
Lo que da una clara idea de lo útiles y prácticos que resultan los bucles for... next. 



mos leído todos 
los artículos anteriores intentendo averiguar 
el camino que ya hemos reco rido, Así que, 
desde ahora damos por supue,to que conoce 
todo sobre CLS, NEW . ,LlST Y 
 PRINT y que si 
le hablamos de GOTO no se ofenderá, 
lF comprende todo esto T EN no tendrá 
n,ingún problema para seguir el resto de la se- 
rie, 
Lo pondremos a prueba en el micro, Y no 
se quede parado con los programas que le 
proporcionemos. Pruebe a cambiarlos o a ha- 
cer los suyos propios. Y no dé por sentado lo 
que decimos, pruébelo en la práctica. Si quiere 
saber «¿Qué ocurre si...?» pruébelo en el 
Amstrad. 
y ahora vamos a empezar. Teclee el Pro- 
grama 1 y veamos qué hace. 
No es precisamente la parte de la progra' 
moción más fascinante del mundo pero nos ha- 
ce tratar algunos puntos importantes, Con lo 
que sabe ya no debería tener ninguna dificul- 
tad en comprender cómo trabaja, 


Contadores 


La línea 20 define la variable «contador» 
dándole el valor 1 mientras que la línea 30 lo 
escribe. La línea 40 aumenta en 1 «conta- 
dor» almacenando el resultado en la varia- 
ble «contador». De esta manera «conta- 
dor» es ahora más grande que cuando salió 
en pantalla, 
Ahora viene la parte ingeniosa. EIIF de la 
línea siguiente examina si «contador» es 
menor o igual a 25. Si es así, el GOTO des, 
pués de THEN envía al programa de vuelta 
a la línea 30 y todo el proceso vuelve a em, 
pezar. 
Cuando «contador» es mayor que 25 el 
bucle va al final del programa. Técnicamente 
se dice que el programa sale del bucle. Enton- 
ces el proceso va a la línea siguiente. En este 
caso no existe ninguna, por lo tanto el proce- 
so termina. 
El programa es lo que conocemos como bu, 
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cle condicional, la condición es que «conta- 
dor» debe ser menor o igual que 25 para re- 
petir el ciclo, El resultado es que los números 
1 a 25 salen en pantalla y entonces termina 
el programa. ¿Podemos adivinar el valor de 
«contador» cuando acaba el programa? 
Probemos añadiendo: 


60 PRINT «Al final el valor de contador 


es:» 
contador 
y encontraremos que el resultado es 26, 
Podríamos pensar que fuera 25 pero una 
oportuna mirada a la condición nos desenga- 
ñará. 
Como la condición es menor o igual a 25, 
cuando «contador» es 25 el programa cum- 
plirá todavía el GOTO, Hará un salto atrás 
a la línea 30 e imprimirá «contador». La si- 
guiente línea añadirá uno y el nuevo «con- 
tador» tendrá un valor de 26 cuando llegue 
a la pregunta de la línea 50, Como 26 es ma- 
yor que 25 el test falla, la condición es falsa 
y el GOTO se ignora. El programa sale del 
bucle y, no encontrando más líneas para pro- 
cesar, termina. 
Probemos cambiar la línea 50 por: 
50 I F contador 
25 THEN GOTO 30 


o 


50 IF contador=25 THEN GOTO 30 
e intentaremos comprender qué es lo que es- 
tá ocurriendo. Como ve, introduciendo peque- 
ños cambios en las condiciones de los bucles 
se pueden producir grandes efectos en el mo- 
do de trabajar de los programas, 
Encontrará un montón de problemas cuan- 
do utilice IFs y GOTOs para crear bucles en- 
gañosos con el uso de condiciones incorrec, 
tos. Tiene que conseguir interrumpirlos en el 
momento oportuno, lo que no siempre es fá- 
cil en programas más complicados, 
Actualmente habiendo leído bastante no 
tendrá dificultad para entender por qué el Pro, 
grama 11 dice HOLA 25 veces, 
Utilice sus conocimientos para realizar cin, 
co HOLAS, luego cinco mil. O haga trescien, 
tos cinco. ¿La condición deberá ser menor que 
306? o ¿menor o igual que 305? o ¿harán am, 
bas el trabajo? o jno lo hará ninguna? Prué, 
belo y veremos. Cuando acabe de juguetear 
con ello, corra el Programa 111. 


Ciclo FOR NEXT 


La salida producida por este programa es 
exactamente la misma que la del Programa 1, 
y sin embargo es una línea más corta, ¿Cómo 
es posible? 
La respuesta se encuentra en el FOR de la 
línea 20 y el NEXT de la línea 40, A esta for, 
ma se la conoce como un bucle FOR... NEXT, 
Todas las líneas del programa que vienen 
entre el FOR yel NEXT que le sigue forman 
parte del bucle. En realidad se conocen como 
cuerpo del bucle FOR... NEXT. Y, como supo- 
nemos por los bucles de los que ya nos hemos 
ocupado, se repite el ciclo una y otra vez, 
En cada vuelta se ejecutan las líneas que for, 
man parte del cuerpo del bucle. En este caso 
sólo había una línea intercalada entre el FOR 
y el NEXT, Es la línea 30 la que imprime el va- 
lor de «contador». 
Obviamente el valor de «contador» va, 
ría según progresa el bucle, ¿pero cómo? An, 
teriormente ya tuvimos algo parecido a 
contador = contador + 1 
pero no hay nada parecido a esto en el Pro- 
grama 111, Y ¿cómo sabe ahora el bucle que 
ha terminado? Y mientras estamos en ello, 
¿cuál es el valor inicial de «canta- 
dOr»? 
Las respuestas se encuentran en la línea 20 
donde FOR está seguido de: 
contador= 1 TO 25 
Esta es la línea que le dice al Amstrad el va- 
lor inicial de «contador» que, en este ca- 
so, es uno. También automáticamente suma 
uno al valor cada vez que da una vuelta al 
bucle y además determina cuántas veces ha- 
rá el ciclo, Vamos a verlo más atentamente. 


Variable de control 


Como sabemos, FOR y NEXT delimitan el 
cuerpo del bucle, las líneas que se han de re- 
petir. Observemos que FOR va seguido de una 
variable, en este caso «contador». Es lo que 
pomposa mente conocemos como variable de 
control del bucle y es la que decide cuántas 
veces el bucle hará el ciclo. 
La variable de control comienza en el valor 
gue le ha sido asignado después de FOR y ca- 
da vez que da una vuelta al bucle el valor es 
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rill'leros 
pasos 


10 REM Programa 1 
20 contador=1 
30 PRINT contador 
40 LET contador=contador+l 
513 IF contador(=25 THEN GOTO 30 


le REr-1 Programa II 
20 contador=1 
30 PRINT "HOLA' 
40 LET contador=contador+l 
50 IF contador(=25 THEN GOTO 313 


10 REM Progr
ma III 
20 FOR contador 1 TO 25 
313 PRINT contador 
40 
.IEXT con t ador 


10 REM Programa IV 
20 FOR contador 1 TO 25 
30 PRINT 'HOLA" 
40 NEXT contador 


10 REM Proorama V 
20 FOR contador=1 TO 25 
30 PRINT contador,cont.dor*2,contad 
Clr.c (In t ador 
40 NEXT contador 


10 REM Programd VI 
20 FOP co
tadDr=O TO 20 STEP 2 
30 PRI
n co
tadc'r 
40 NEXT contador 


le RE
1 Pr'ogr"T'
. VI I 
20 FOP co
t3dor=0 TO 20 STEP 3 
30 PRHIT contador' 
40 NEXT contador 


10 REM Programa U[II 
213 FOR contador=O TO 15 
30 PRINT 15-co
tador 
40 NEXT contador 


10 RE
I Pr.ogr'ama IX 
20 FOP cor,tador=15 TO B STEP -1 
38 PRINT cont
dDr 
40 NEXT contador 


10 REM Programa X 
20 FOR co
tador-2 TO 1 
30 PRINT "ESTO ES ABSURDO" 
40 NEXT contador 


10 REM Programa XI 
20 FOR contador-l TO 10 STEP 2 
30 PRINT contador 
40 NEXT contador 


10 REM Programa XII 
20 FOR co
tadDr-IO TO 1 STEP -
 
30 PRINT contador 
40 NEXT c c,n t ador 


10 REM Programa XIII 
20 FOR 
xter
o 1 TO 3 
313 PRJNT I E
.t,=, €o<=. €o] ttuc: 1 o? e-x t€'rno I 
externo 
40 FOR Int
rno 1 TO 2 
50 PRINT 'Ec:.te e'S e-1 bucle ir.terno l' 
Interno 
60 

EXT i n ter
o 
73 NEXT externo 
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incrementado en uno. El bucle para cuando 
la variable de control excede el valor especi, 
ficado que figura después de TO. 
En otras palabras, la variable de control ac- 
túa como un contador. Si queremos hacer al- 
go lO veces podemos usar nuestros dedos co- 
mo variable de control. Veamos cómo el bu- 
cle FOR... NEXT, haría algo parecido: 
FOR dedos= 1 TO 10 
haz algo 
NEXT dedos 
Cuando hemos utilizado los 10 dedos hemos 
hecho cualquier cosa que ha sido realizada en 
diez veces, Los dedos han actuado como una 
variable de control oscilando desde 1 TO lO, 
En el Programa 1I1 está la línea: 
FOR contador= 1 TO 25 
Le dice al Amstrad que debe repetir 
todas las líneas que están encima del 
siguiente N EXT. La variable de con- 
trol del bucle es «contador», su va- 
lor inicial será 1 y cada vez que ha- 
ga el bucle se incrementará en uno. 
El bucle repite el ciclo hasta que el 
valor final de «contador» sea mayor 
que 25. 
La primera vez que se hace el bu- 
cle el «contador» es 1. El NEXT envía al 
programa de vuelta al FOR y «contador» 
se convierte en 2, luego en 3 cuando progre, 
so el bucle y así hasta 25, 
Entonces cuando NEXT envía al programa 
de vuelta a FOR, ell que se añade a «con. 
tador» le da el valor de 26. Esto excede el 
límite colocado por TO por lo que en este mo, 
mento se sale del bucle, yendo el Amstrad 
a la línea siguiente a NEXT. En este caso no 
hay ninguna, por tanto el programa ha ter- 
minado. 
El resultado es que todos los números entre 
1 y 25 han sido escritos, ya que en los ciclos 
del bucle FOR los valores de «contador» van 
desde 1 a 25. Probemos añadiendo: 
50 PRINT «El valor final de contador es» 
contador 
y veremos que realmente tiene un valor final 
de 26. 


,+ 


FOR...NEXT = 
claridad + sencillez 


Comparemos el Programa I con el Progra- 
ma 111. Creemos que estará de acuerdo en que 
el Programa II1 es más claro. Con la estructu- 
ra FOR,., NEXT es fácil ver que el bucle com- 
pletará el ciclo 25 veces. Con el Programa I 
nunca estaremos seguros si lo hará 24 ó 25 
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veces así que la lección es que el bucle FOR.., 
NEXT hace las cosas más claras. También son 
más fáciles de modificar que los bucles llenos 
de GOTOS. 
Echemos un vistazo al Programa IV que hace 
el mismo trabajo que el Programa 11 pero uti- 
liza un bucle FOR... NEXT, 
Todavía conseguimos nuestros 25 HOLAS en 
la pantalla justamente como en el Programa 
11. Notemos, sin embargo, que así es más fá- 
cil hacerlos 500 ó 5.000 veces, Y todo lo que 
tenemos que hacer para obtener 305 es cam- 
biar una línea, 
20 FOR contador= 1 TO 305 
nos da lo que queremos, Como podemos ver 
es más fácil que perdiendo el tiempo con el 
Programa 11. 
El bucle FOR.., NEXT no es sólo sencillo, si- 
no también poderoso, veamos en el Progra- 
ma V lo que queremos decir. 
Otra vez el bucle hace el ciclo 25 veces, pero 
ahora la línea que forma parte del cuerpo del 
bucle es diferente. No sólo imprime el valor 
de «contador» sino que también lo hace 
multiplicado por dos y elevado al cuadrado. 
Probemos alterar la línea para que nos de 
«contador» elevado al cubo o sumarle cin- 
co en cada vuelta, Es fácil ¿no? 
Antes que dejemos los Programas 1II y IV 
veamos solamente si podemos observar algu- 
na mayor diferencia entre sus maneras de tra- 
bajar. No se preocupe si no puede, es bas- 
tante difícil. 
La respuesta es que el Programa 111 no sólo 
usa «contador» para controlar el número 
de repeticiones del bucle, sino que también uti- 
liza «contador» en el cuerpo del mismo, El 
Programa V hace lo mismo. 
El Programa IV, sin embargo, no utiliza 
«contador» en el cuerpo principal del bu- 
cle, lo usa normalmente para mantenerse al 
tanto de los ciclos. Como dijimos es un punto 
oscuro pero vale la pena tenerlo en cuenta. 
Si utilizamos la variable de control del bu- 
cle en el interior del cuerpo principal del mis- 
mo, en caso de cambiarla debemos hacerla 
con cuidado o alterará la cuenta del bucle. 
Una línea como: 
25 contador=contador+3 
en el Programa I1I demostrará lo que quere- 
mos decir. Aunque es bastante obvio en este 
caso, en un programa largo puede ocasionar- 
nos problemas, ¡Cuidado! 


Marcapasos = STEP 


Hasta aquí todos nuestros bucles FOR... 
NEXT han tenido la variable de control aumen- 
tando en pasos de 1 cada vez que se hacia 
el bucle. Esto no tiene que ser siempre así, Po, 
demos cambiar el número de pasos que que- 
ramos usar el comando correctamente llama- 
do STEP. El Programa Vllo utiliza para escri- 
bir todos los números pares entre O y 20. 
Es un comando fácil de usar. Como se des- 
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prende del Programa, la cifra después de STEP 
decide cuánto debe ser incrementada la va- 
riable de control al final de cada ciclo, En es- 
te caso «contador» se incremento en 2 en 
cada vuelta, ¿Qué ocurriría si el STEP 
fuera 4? Probemos e imaginémoslo fuera an- 
tes de intentarlo con el micra. 
El programa VII demuestra que ocurre cuan- 
do el STEP es 3. 
No hay problema con la mayoría de los re- 
sultados que salen, Se parte de O, y se aña- 
den tres hasta alcanzar 18. Pero ¿por qué 
se para en 18? Si añadimos: 
50 PRINT «El valor final de contador 
es» 
contador 
al final del programa veremos por qué. 
Cuando «contador» es 15 NEXT le aña- 
de 3, haciéndole 18 y envía al bucle de vuel- 
ta a la línea 20. La línea 30 imprime el18 y 
el programa va otra vez al NEXT. 
Aquí «contador» se incremento de nue- 
vo en tres, haciéndole 21 y el programa re- 
gresa al FOR. 
Ahora cuando el micra lo revisa, «conta- 
dor» está fuera de rango (O o 20) así que se 
salta el bucle. Por lo tanto 18 es el último nú- 
mero que se ha escrito. 
Probemos cambiar STEP a 5 u 8 y veamos 
si podemos explicar los resultados. 
Se habrá dado cuenta que en el último pro- 
grama junto al NEXT de la línea 40 no se pu- 
so un «contador» pero sin embargo el pro, 
grama funciona. Desde aquí podemos ver que 
no siempre NEXT tiene la etiqueta (Iobel) de 
la variable de control del bucle. 
Habiendo dicho esto le aconsejamos que la 
ponga también, ya que así es más fácil depu- 
rar los programas. 
Todo esto está bien, si queremos números 
producidos por un bucle en orden creciente, 
pero, por alguna razón que conozca usted 
mismo, ¿quiere que el valor de los nú- 
meros decrezca? 
El Programa VIII muestra la manera de ha- 
cerla. 
Aquí «contador» todavía parte desde ce- 
ro, aumentando uno cada vez, abarcando un 
rango de O a 15. No obstante, en lugar de im- 
primir el valor de «contador», ahora se lo 
restamos a 15 cada vez que hace el bucle. En 
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la primera vuelta «contador» es O de mo- 
do que aparece en pantalla el15, La segun- 
da vez «contador» se ha decrementado en 
1 así que aparece 14 (15-2), se sigue en el 
ciclo siguiente con 13 (15-2). 
Como el rango de «contador» va de O a 
15, el resultado de la sustracción va de 15 a 
O. ¿Puede hacerla bajar de dos en dos? 


Cuenta atrás 


El Programa IX muestra una manera senci, 
110 de contar hacia atrás. 
El secreto se encuentra en el parámetro STEP 
-1, Cada vez que se hace el bucle se añade 
-1 al «contador». El resultado de sumar 
-1 cada vez que se hace el bucle es que «con, 
tador» decrece. 
Observe que las cifras a ambos lados de TO 
han cambiado para hacer frente a esto. Aho, 
ra van de un valor inicial de 15 a un valor fi, 
nal de O, 
Probemos a utilizar otros intervalos negati, 
vos y veremos qué pasa. Son bastante fáciles 
de utilizar, pero hay que asegurarse que los 
valores de comienzo y finalización están de 
acuerdo con los intervalos, 
Si no lo comprende veamos en el Programa 
X lo que queremos decir. 
Probemos: 
STE P - 1 


o 


FOR contador= 1 TO 2 
para corregirlo. 
Después de entrenarse con los bucles FOR... 
NEXT en casa, no debe tenerle miedo al Pro- 
grama XI. Debe ser capaz de comprender que 
el último número que saldrá en pantalla será 
9, 
Advierta que cuando STEP es positivo, el bu, 
cle termina cuando la variable de control ex- 
cede el límite señalado. 
Si tiene alguna duda: 
50 PRINT «El último valor es» contador 
debe convencerle, de hecho 11 es mayor que 
ellO que hay detrás de TO, 
De cualquier forma, cuando STEP es nega- 
tivo como en el Programa XII las cosas son dis- 
tintas. El bucle termina cuando la variable de 
control es menor que la cifra que hay después 
de TO, 
De nuevo: 
50 PRINT «El último valor es» contador 
añadido al final del programa debe conven- 
cerle. No hay duda que O, el valor final de 
«contador», es menor que 1, el, límite señala, 
do en la línea 20. 
y esto es todo más o menos, por ahora. Has, 
ta la próxima vez, ¿por qué no escribe sus pro- 
pios programas usando pasos positivos y ne- 
gativos? ¿ Y por qué no usa valores fracciona- 
rios en lugar de números enteros?, ¿lo damos 
por hecho? Y si, después de todo, tiene algún 
tiempo libre, ¿puede explicar el Programa XIII? 
¿Qué ocurre aquí? Lo explicaremos... 



Suscríbete... 
y uno de estos tres 
sensacionales iue. os 
será tuyo... ¡GRATIS! 


M.H. AMSrRAD te da a elegir entre tres de los mejores juegos existentes en el mercado 
para AMSTRAD; COMBAr LYNX, DALEY rHOMPSON'S DECArHLON y BEACH HEAD, cualquiera 
de los cuales puede ser tuyo solamente con suscribirte a nuestra revista. Aprovecha esta 
ocasión excepcional y ahorra 2. 700 pesetas (precio de venta del programa) 
más el importante descuento que se produce en el 
precio de cada número, por el hecho de ser 
suscriptor. Disfruta de las ventajas que supone 
recibir cómodamente tu revista a domicilio y de la 
seguridad de tener tu ejemplar aunque se haya 
agotado en los quioscos. 


E, t b I t ', d '" 
nVlanos u o e In e suscnpclon y no 
le des más vueltas, el número de juegos para 
regalos de suscripción, aunque grande, es li- 
mitado, y estos se podrían agotar mientras lo 
estás pensando. 


BEACH HEAD producido por U,S, GOLD es una mi- 
sión de desembarco en una costa fuertemente dE:fendida 
por las fuerzas aeronavales enemigas, Debes conducir tu 
flota hacia la bahía y repeler el ataque aéreo, si lo consi- 
gues tu siguiente obstáculo será una flotilla de destructo- 
res y acorazados, superada la cual desembarcarás tus an- 
fibios en las arenas de la bahía, estos deben superar las 
defensas costeras y llegar a la fortaleza que es el objetivo 
final. 


COMBA T L YNX simula una misión de defensa de unas 
bases atacadas par una división acorazada, Disponemos 
para enfrentamos a ellas de un modernísima helicóptero. 
Este juego podría incluirse dentro del catálogo de los de 
estrategia, y su complejidad le data de una gran dosis de 
adicción y belleza. 


DALEY THOMPSON'S DECATHLON con este jue- 
go OCEAN enciende la llama olímpica y te reta a superar 
los récords de los campeonatos de todos los tiempos, el 
decathlon se desarrolla en dos días de competición y se 
compone de las siguientes pruebas: 
PRIMER DIA: 100 m lisos, salto de longitud, lanzamien- 
to de peso, salto de altura y 400 m lisos. 
SEGUNDO DIA: 110 m vallas, lanzamiento de disco, sal- 
to con pértiga, lanzamiento de iobalina y los 1.500 m, 
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Uno de los toreos poro lo que los ordenadores parecen haber 
sido creados con todo lo alevosía del mundo, son los 
programas de bases de datos, el manejo organizado de lo 
información. 


magínese una escena, 
sombría escena, como la siguiente: 
usted tiene 1,000 clientes en su ne- 
gocio, cada uno de los cuales reali- 
za una serie de pedidos, que deben 
ser servidos en una fecha determina- 
da, de un producto específico. 
Usted tiene que averiguar, por 
ejemplo, qué cantidad de lo que sea, 
ya quién, debe servirse antes del día 
tal, y tiene que hacerla a mano, es- 
to es, mirarse las 1.000 fichas y ano- 
tar, una por una, aquellas que cum- 
plan con las especificaciones reque- 
ridas. 
Al menos para mí, un panorama 
como el que antecede, lo llamaría, 
pecando de coloquial, de auténtico 
suicidio. 
Al parecer, gran cantidad de gen- 
te comparte esta opinión, porque 
cuando surgieron los primeros pro- 
gramas que realizaban estas ingra- 
tas tareas, se vendieron en cantida- 
des industriales. 
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Tales aplicaciones se conocen co- 
mo bases de datos, y constituyen la 
mejor manera encontrada hasta 
ahora de relacionar información de 
temas muy dispares de forma cohe- 
rente, en base a unas ciertas reglas 
o criterios de selección definidos por 
el usuario. 
La ventaja estriba, lo recalco, en 
el hecho de que una base de datos 
puede ser interrogada en un lengua- 
je más o menos natural (depende del 
diseño del programa y de la «astu- 
cia» del programador), y obtener un 
listado por pantalla o impresora, de, 
por ejemplo, «todos los clientes que 
han pedido 1.000 kg de madera de 
abeto, a entregar antes del 15 de 
marzo y que residen en Madrid por 
la tarde de 4 a 5». . 
La complejidad y longitud del cri- 
terio de selección, como el anterior, 
puede alargarse todo lo que quera- 
mos. Lógicamente, cuanto más com- 
plejo sea, y más cantidad de infor- 
mación deba manipular el programa 
en cuestión, el tiempo de respuesta 
se alargará más, 
El número de programas de bases 
de datos puede contarse por milla- 
r
s; hay de todos los tipos y concep- 
ciones. 
En el caso particular de Amstrad, 
también hay varias. Hemos elegido 
para Banco de Pruebas una creada 
por RPA Sistems, que así, a grosso 
modo, posee dos particularidades in- 
teresantes: está escrita en Basic, y no 
necesita del CP/M para funcionar, es 
decir, corre bajo Amsdos, sistema 
operativo nativo de Amstrad. Esto 
nos permitirá observar una aplica- 
ción de gestión desde un punto de 
vista distinto de la aproximación 
CP/M. 
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Más abajo, dentro de este mismo 
artículo, analizamos en detalle el ma- 
nejo del programa prácticamente co- 
mando a comando, por lo que va- 
mos a centrarnos aquí en algo que, 
a mi modo de ver, es especialmente 
importante: sencillez en el uso del 
programa, de cara al usuario desco- 
nocedor de la informática. 
En primer lugar, RPA Sistems no 
entrega manual de instrucciones. Ni 
falta que hace, fue mi primera reac- 
ción al trabajar con él (luego pude 
comprobar que existe una opción 
para ver las instrucciones por panta- 
l/a o impresora), y creo que es acer- 
tada. Este programa es la sencillez 
por antonomasia, es muy difícil equi- 
vocarse. 
En todo momento, el usuario se ve 
asistido por mensajes del sistema, ab- 
solutamente unívocos lI que nos indi- 
can, paso a paso, lo que se espera 
que hagamos o las opciones de que 
disponemos. El programa está basa- 
do en una estructura de menú: exis- 
te un menú principal, en el que deci- 
dimos lo que deseamos hacer, y lue- 
go el programa bifurca hacia la op- 
ción elegida. 
Pude observar que en este menú, 
las posibilidades van numeradas, en 
lugar de acceder a ellas por su ini- 
cial. 
Bien, supongo que es cuestión de 
gustos o costumbre, pero una y otra 
vez mi dedo se lanzaba a las letras 
en lugar de a los números, con lo 
que, o no obtenía nada, o me encon- 
traba metido de lleno en la opción 
de dar colores a la pantalla cuando 
pretendía crear un fichero (sí, Color 
también empieza por C). 
Está muy claro que criticar esto es 
un tanto discutible, pero basándome 
en el hecho de que al resto de las 
personas que manejaron el progra- 
ma les ocurrió lo mismo, tal vez hu- 
biera sido más acertado escoger otro 
sistema, Veredicto: en el peor de los 
casos, mal menor; en la mayoría de 
ocasiones, cuestión de gustos. La 
creación de un fichero se hace de 
forma completamente interactiva, 
mediante el uso de ventanas. Usted 
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simplemente mueve el cursor por la 
pantalla, fija dos puntos y ya está, te- 
nemos creada una ventana que co- 
rresponderá a un campo de la base 
de datos, en la cual, una vez etique- 
tada con algo como «nombre», 
«cliente número», o lo que sea, se 
almacenará la información relativa 
a ese concepto. 
Podemos tener simultáneamente 
en pantalla hasta 8 ventanas, lo cual 
no implica que sólo puedan existir 8 
campos; como se verá en la descrip- 
ción del programa, esto ha sido pre- 
visto. 
No podemos por menos que feli- 
citar al programador por conseguir 
la siempre difícil tarea de crear el for- 
mato de una base de datos, de una 
forma tan sencilla y elegante, 
En el mismo estilo se ubica el tema 
de dar color a la pantalla diseñada 
con las ventanas: aparece otra pan- 
talla con una serie de informes acer- 
ca de los colores disponibles, Para 
cambiarlos, se pulsan una serie de te- 
clas y el nuevo set de colores apare- 
ce en la pantalla. En definitiva, es- 
cogemos visualmente, como debe 
ser, la combinación que más nos 
acomode. Nada de cosas como «In- 
troduzca un número del O al 27 pa- 
ra cambiar la tinta".», o algo igual- 
mente esotérico. 
El resto de las opciones son las que 
cabe esperar de este tipo de progra- 
mas: ordenación por uno o varios 
campos, búsqueda selectiva de infor- 
mación por un determinado campo, 
sacar fichas por impresora, etc., to- 
das igualmente simples de manejar 
desde el primer momento. 
Pudimos observar que el progra- 
ma se encuentra dividido en multitud 
de partes en el disco, de forma que 
cada una está en memoria sólo cuan- 
do se la necesita. A pesar de ello, no 
se observa un retraso «crispante» en 
las operaciones: unos instantes de es- 
pera, y nos encontramos donde que- 
ríamos estar. Las tareas de ordena- 
ció y búsqueda de fichas se realizan 
también a una velocidad aceptable. 


MICROHOBBY AMSTRAD 11 



Hablando de ordenación, hay que 
andarse con cuidado con la opción 
de borrar una ficha: esto se realiza 
pulsando una tecla, y la ficha, sea 
cual sea, que se encuentre en pan- 
talla, desaparece sin previo aviso. 
Esto es lógico hasta cierto punto, 
ya que supone que el usuario se ha 
colocado antes en la ficha que quie- 
re borrar, pero puede causar serios 
disgustos al mínimo despiste. No hu- 
biera estado de más hacer la opera- 
ción de borrado un poco más dificul- 
tosa, o pedir confirmación, o algo 
que obligará a concentrar la aten- 
ción sobre lo que estemos haciendo. 
Una vez borrada, no se puede recu- 
perar. 
Por último, respecto al número de 
fichas que caben en un fichero, es 
variable. El programa pregunta en 
un momento dado el número de ca- 
racteres por campo, ofreciendo por 
defecto el número de 15. 
Con un fichero de 3 campos, y con 
15 caracteres por campo, el núme- 
ro de fichas posibles calculadas por 
el programa fue de 628. No obstan- 
te, creo que ese número es aproxi- 
mativo, ya que en cada campo ca- 
be todo el texto que queramos me- 
ter, o al menos, más de 15 caracte- 
res, por lo que cabe esperar que el 
número real de fichas se vea afecta- 
do si se mantienen en memoria cen- 
tral. 
No conseguimos arrancar el pro- 
grama en un CPC464 con unidad de 
disco, sin embargo, funcionó perfec- 
tamente en un CPC664 y en el 
CPC6128. 
Pasamos ahora a describir con de- 
talle las opciones y manejo del pro- 
grama, dejando que cada cual, a te- 
nor de lo expuesto, saque sus pro- 
pias conclusiones. 
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El menú principal consta de nueve opciones, 
más las instrucciones: 


CREAR FORMATO 
CREAR FICHERO 
ORDENAR 
NUEVA ORDENACION 
AÑADIR FICHAS 
REVISAR 
GRABAR 
CARGAR 
IMPRESORA 
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1 CREAR FORMATO 
Esta opción nos permite de finir el 
formato de un fichero de la siguien- 
te manera: 
Podemos escoger el modo 40/80 
columnas. Con 40 columnas tendre- 
mos 4 colores, con 80, 2. 
Con las teclas de movimiento del 
cursor, éste se mueve hasta la posi- 
ción deseada y se pulsa 'Q' para 
marcar los límites. 
Aparecen unas líneas delimitando 
la esquina superior izquieda. Ahora 
el cursor sólo puede recorrer el cua- 
drante inferior derecho, se lleva a la 
posición donde queremos marcar el 
fin de la ventana, y pulsamos 'Q' de 
nuevo. 
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La ventana se ilumina y al pie de 
pantalla aparece la pregunta: más 
(sIn)? Si responde 's' podrá definir 
más ventanas visualizando las ante- 
riores. 
Se puede pulsar 'B' para borrar la 
ventana anterior si no ha quedado 
bien. Cuando defina más de siete 
ventanas, verá el mensaje: NO HAY 
ESPACIO PARA MAS VENTANAS. 
¿SEGU IMOS O LO DEJAMOS? 
Si responde 's' ya sólo tiene que 
responder a la pregunta: ¿CUAN- 
TOS CAMPOS MAS? 
A medida que vaya definiendo la 
base de su archivo, el programa le 
mostrará como está quedando y le 
pr

untará: jCORRECTO?, por si 
qUIsiera rectlticar. 
Los próximos datos a introducir 
son los nombres de cada campo, que 
podrían ser NOMBRE, DIRECCION, 
etc..., o similares. 
Una vez terminado el modelo del 
fichero, el programa le pedirá el pro- 
medio de caracteres por campo (si 
responde ENTER, se tomará el valor 
de 15 caracteres por campo), para 
calcular así el número máximo de fi- 
chas. 
Para ordenar, puede interesar ha- 
cerlo por pocos campos, acelerando 
la ordenación, o por todos. Deberá 
especificar por qué campos quiere 
ordenar, el sistema es muy sencillo y 
basta con seguir los mensajes. 


-1 


i 
I "11111\]" ¡ ID]IftI\ 15 ,ti,], 


Ahora ya tiene su MODELO de fi- 
chero, que le permitirá crear, revi- 
sar, actualizar, etc... Es aconsejable 
grabar este MODELO en la 2. a ca- 
ra de un disco (opción SALVAR). 


2 CREAR FICHERO 
Para seleccionar esta opClon, es 
obligatorio haber definido previa- 
mente un MODELO de fichero o ha- 
berlo cargado de un disco, de lo con- 
trario el ordenador no sabrá COMO 
presentar los datos. 
Crear un fichero consiste en relle- 
nar las fichas de información, siem- 
pre que no se supere el máximo es- 
tablecido. Para acabar la introduc- 
ción de datos, escriba FIN en cual- 
quier campo seguido de ENTER pa- 
ra volver al menú principal. 


3 ORDENAR 
Consiste en la clasificación alfabé- 
tica del fichero según los campos es- 
pecificados al CREAR FORMATO. 
Esta clasificación se puede modificar 
en cualquier momento con la opción 
4 (NUEVA ORDENACION). 
Al estar en revisión, la opción 'e 
nos permitirá cambiar la numeración 
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de las fichas con respecto a un cam- 
po u otro. 


4 NUEVA ORDENACION 
Esta opción permite seleccionar los 
campos por los que se va a efectuar 
la ordenación, utilizando las teclas 
del cursor para seleccionar un nue- 
vo campo y pulsando 'P' para fijar 
ese campo. 
Pulsando T la ordenación se ha- 
rá por todos los campos, pulsando 
'Q' finaliza ésta y deja los campos 
marcados anteriormente como cam- 
pos matrices de la ordenación. 


5 AÑADIR FICHAS 
Obviamente, sirve para añadir 
nuevos elementos (fichas) a la base 
de datos. Para acabar, basta escri- 
bir FIN en cualquier campo seguido 
de ENTER. 
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6 REVISAR 
En este modo se puede, además 
de visualizar las fichas, modificar, 
borrar, buscar, etc... Para facilitar la 
tarea esta opción posee un subme- 
nú de comandos, a los que se acce- 
de pulsando «A». 
Los comandos de REVISAR son: 
'A' ayuda, le dice los comandos 
disponibles.) 
Pra visualizar los campos que no 
han cabido en las ventanas, es decir 
cuando hay más de siete campos. 
'P' ficha posterior, 'O' ficha ante- 
rior. 
'L' borra la ficha que hay en pan- 
talla. Esta operación desordena el fi- 
chero. 
'N' nueva ficha: conociendo su 
número con respecto a la ordenación 
escogida, aparecerá en pantalla. 
'(' modifica el campo que deter- 
mina la numeración. El sistema es 
análogo al empleado en NUEVA 
ORDENAClON, pero sólo se pue- 
den seleccionar los campos que se 
eligieron para ordenar. Si se quieren 
cambiar, debemos usar N U EVA OR- 
DENACION. 
'M' modificar: se se!ecciona con 
las teclas de cursor el campo a mo- 
dificar y se pulsa 'Q', pasando a in- 
troducir la nueva información. Se 
puede insertar CADENA, escribien- 
do '$ CADENA', o añadir CADENA, 
escribiendo 'CADENA'. 


'B' buscar. Seleccionar con las te- 
clas de cursor los campos en los que 
se busca, fijándolos con 'P'. Queda- 
rán señalados con una flecha, hasta 
que pulse 'Q'. 
El ordenador pide, entonces, la ca- 
dena a buscar, y comenzará en los 
campos seleccionados. A medida 
que vaya encontrando fichas con esa 
información, el ordenador parará la 
búsqueda. Ahora hay dos posibilida- 
des: 
Pulsando 'Q' se vuelve al modo 
REVISION con esa ficha en pantalla. 
Si se pulsa otra tecla la búsqueda 
continuará. 
'Q' permite volver al menú, para 
grabar datos, cargar, imprimir, etc. 
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7 SALVAR 
Permite escribir en disco dos tipos 
de información: 
1) el MODELO del fichero (talla 
de ventanas, nombres, colores). 
2) un fichero de datos (clientes, di- 
recciones, etc.). 
Es importante aclarar que, si se eli- 
ge grabar los dos, sólo se pedirá U N 
nombre. Si respondemos por eje m- 


: anco de 
pruebas 


plo: NOMBRE, el modelo del fiche- 
ro se llamará NOMBRE.MOD, yel 
fichero se llamará NOMBRE.DAT, 
aunque no se debe especificar NUN- 
CA .MOD o .DAT., al dar el nombre 
de fichero (el apellido lo pone el pro- 
pio programa). 
Sólo debe dar el nombre sin exten- 
sión, el ordenador sabe cuándo bus- 
car .MOD o . DA T. Cualquier fiche- 
ro creado con N campos puede fun- 
cionar con otro modelo que tenga 
también N campos, sin importar su 
modo, colores o nombres. 


8 CARGAR 
Hace lo contrario que SALVAR. Se 
encontrará con la misma pregunta, 
y al igual que antes, podemos dar 
sólo U N nombre de fichero, siendo 
NOMBRE.MOD el nombre del mo- 
delo y NOMBRE.DAT el del fichero. 


9 IMPRESORA 
Respondiendo DESDE que ficha y 
HASTA que ficha, (pudiendo cance- 
lar dando 'Q') se listará por impre- 
sora el contenido de las fichas espe- 
cificadas. 
Existen otras tres opciones: IN S- 
TRUCCIONES pulsando '1', cambiar 
colores de base, pulsando '(' y 
ABAN DONAR, pulsando '0'. Esta 
última opción le pedirá confirmación, 
ya que provoca un borrado de los 
datos y del programa. 
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Frutas es un programa creado para emular a las famosas «máquinas de los bares». Todo 
el mundo sabe en que consisten, así que cualquier explicación resulta ociosa. 
Sólo decir quelos gráficos son excelentes, como puede verse en las fotos, y que el 
programa lleva cerca de 2 Kbytes y medio en lenguaje máquina, responsables de la 
perfección de los gráficos y de su movimiento. 
El autor del programa nos explica ahora el resto de la historia: 


Este programa ha sido realizado 
por el lector: 
Andan; Martín 
Bilbao 


ste programa escrito en 
Basic y Código Máquina es un juego 
parecido a las máquinas tragaperras 
de los bares. Partimos con una can- 
tidad limitada de dinero, obsequia- 
da generosamente por nuestro 
CPC-464. Cada tirada cuesta 10 uni- 
dades monetarias si tenemos menos 
de 100, 20 si tenemos más de 100 Y 
menos de 200... y así sucesivamen- 
te. Para jugar, debemos de pulsar la 
tecla ENTER. Mientras esté pulsada, 
se encenderán unas luces encima del 
marcador. Cuando la soltemos, las 
frutas darán tantas vueltas como lu- 
ces encendidas haya. Obtendremos 
bonus automáticos si en la pantalla 
de frutas hay más de 4 iguales, con- 
tando los bonus por el valor de la 
fruta en cuestión, Tanto si hemos con- 
seguido bonus automáticos como si 
no, tenemos la posibiladad de lograr 
bonus manuales al parecer en pcn- 
talla la frase: BONUS CON UNA 
LUZ. Para conseguirlos, debemos lo- 
grar que se encienda tan sólo una 
luz, mediante la pulsación de la te- 
cla ENTER. La manera más fácil de 
hacerla es tener ENTER pulsada has- 
ta que las luces den una o más vuel- 
tas y soltarla justo en el momento en 
que sólo encendida una luz. Si lo lo- 
gramos iremos sumando bonus. 
Cuando fallamos, y si tenemos bo- 
nus, aparece en pantalla la indica- 
ción: MOVER FRUTAS O COGER. 
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El propósito es mover las frutas de 
modo que la combinación premiada 
quede en la línea que marcan las fle- 
chas. Para mover las frutas nos ayu- 
damos del keypad numérico: cada 
uno de los 9 cuadros de la pantalla 
de frutas se corresponde con los dí- 
gitos 1-9 del keypad,siendo 1 el cua- 
dro inferior izquierda, Para mover 2 
frutas hay que pulsar los dígitos de 
los cuadros donde están situadas. 
Sólo se pueden mover frutas adya- 
centes horizontal o verticalmente. 
Por ejemplo, movimientos como 1-9 
ó 5-7 son ilegales u no serán acep- 
tados. Sin embargo, solamente se 
permiten los movimientos, horizonta- 
les del tipo 2-3, 7-8, ... si tenemos 
más de 3 bonus. En caso contrario, 
sólo podemos mover verticalmente. 
Cada movimiento legal gasta un bo- 
nus. Cuando hayamos dispuesto las 
frutas como queríamos, en función 
de los bonus en nuestro haber, o 


cuando ni siquiera queríamos mover 
las frutas, debemos pulsar una tecla 
cualquiera (por ejemplo, ENTER de 
nuevo) para coger el premio, caso 
que lo hubiera. Yeso es todo. Jugan- 
do un par de veces se observa que 
es muy fácil de manejar y muy adic- 
tivo. Si nos quedamos sin dinero, ob- 
servaremos un bonito efecto de tem- 
plado de imagen, realizado con su- 
cesivos scrolls. El orden de importan- 
cia de las frutas, de menor a mayor, 
es: Cereza, Plátano, Fresa, Limón, 
Manzana y BAR. El tipo de premios 
es: 3 frutas iguales, 2 iguales con 
BJ:R en medio y 2 BARES en las es- 
qurnas. 
El propio programa se encarga de 
encargar el código máquina graba- 
do a continuación de él y que con- 
tiene los dibujos de las frutas y la ru- 
tina que genera su representación en 
pantalla. 
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Serie Oro- 


1000 REM INICIALIZACION 
1010 RESTORE 1010:FOR i=O TO 15:REA 
D a:IN
 i.a:NEXT:DATA 0,24,1,3.10.4 
,7, 9. O, 15, 12, 6, 1 1 , 12. 26. 16 
1020 INK 8,18,O'MODE O:BORDER O:PAP 
ER O:PEN 2:CLS 
1030 PEN 8:LOCATE 2,11:PRINT"NO SEA 
S IMPACIENTE":GOSIJB 2050 
1040 FOR n=l TO 3:a$(n)="000":NEXT: 
ex-40000:eol=ex+l,fil=ex+3:ea,..="x+5 
1050 REM CARACTERES GRAFICOS 
1060 SYMBOL 251,24,28.254,255,255,2 
54..28,24 
1070 SYMBOL 252.0,0.31,31.31,31.0.0 
1080 SYMBOL 253,24.56.127.255,255,1 
27.56.24 
1090 SYMBOL 254.0.0,248.248.248.248 
,0,0 
1100 SYMBOL 255,0.60.126,126,126.12 
6.60,0 
1110 REM DIBUJOS 
1120 se=50:CLS,PEN 9,LOCATE 3,8:PRI 
NT CHR$(252)+CHR$(251):LOCATE 3,9:P 
RINT CHR$(252)+CHR$(251) 
1130 LOCATE 18.8:PRINT CHR$<:!53)+CH 
R$(254):LOCATE 18.9:PRINT CHR$(253) 
+CHR$(254) 
1140 FOR m=144 TO 400 STEP 128:FOR 
n=232 TO 392 STEP 80:MOVE m,n:PLOT 
m,n.5:DRAWR 128,0:DRAWR 0.-80:DRAWR 
-128,0:DRAWR 0.80:NEXT:NEXT 
1150 GOSUB 1600 
1160 REM PROGRAMA PRINCIPAL 
1170 GOSUB 1510:PEN 10,LOCATE 1.25' 
PRINT" ENTER PARA JUGAR ", 
1180 GOSUB 1420 
1190 GOSUB 1530:se-se-IO*(se\100+1) 
1200 GOSUB 1600 
1210 GOSUB 1660 
1220 GOSUB 1710 
1230 GOSUB 2010 
1240 IF bn>O THEN GOSUB 1780:GOSUB 
1510:GOTO 1240 
1250 LOCATE 1.21:PRINT SPACE$(20), 
1260 GOSUB 1930:p,..=p,..*10:IF p,..>O TH 
EN GOSUB 1620 ELSE SOUND 1,2000,100 
: FOR i 1 TO 750: NEXT 
1270 se se+p,..:GOSUB 1600 
1280 IF se<>O THEN 1170 
1290 IF INKEY$<>.... THEN 1290 
1300 FOR N 1 TO 3:PRINT CHR$(30)+CH 
R$ ( 11 ) : NE XT 
1310 WHILE IMCEY$=.... 
1320 LOCATE 1,26:PRINT:LOCATE 1.26' 
PRINT:LOCATE 1,26:PRINT 
1330 PRINT CHR$(30)+CHR$(11):PRINT 
CHR$(30)+CHR$(II):PRINT CI-iR$(30)+CH 
R$(II) 
1340 WEND 
1350 FOR n-l TO 25:LOCATE 1.26:PRIN 
T: NEXT 
1360 FOR n=1 TO 12:LOCATE 1.26:PRIN 
T:NEXT:PEN 6,LOCATE 2.25:PRINT"QUIE 
RES JUGAR MAS?":FOR n=l TO 14:LOCAT 
E 1.26:PRINT:NEXT 
137(, a$ UPPER$(INKEY$):IF a$<>"S" A 
NO A$<>"N" THEN 1370 ELSE IF a$="S" 
THEN 1110 
12',BO FOR n=1 TO 12:LOCATE 1.26:PRIN 
T:NEXT:PEN 9:LOCATE 4,25:PRINT"SEGU 
RO QUEo NO?":FOR n=1 TO 14,LOCAIE 1, 
26: PRI NT: NEXT 
1390 a$ UPPER$(INI.:EY$): IF a$<>"S" A 
ND A$<'''N'' THEN 1390 EL SE IF a$-"N" 
THEN 1360 
1400 
OR n=1 TO 12:LOCATE 1.26:PRIN 
T:NEXT:CALL O 
1410 REM APAGAR LUCES 
1420 PEN 2:LOCATE 3,IB:PRINT STRING 
$(17,CHR$(255»:RETURN 
1430 REM PROBABILIDADES 
1440 IF a<4 THEN a-6:RETURN,REM BAR 
31. 
1450 IF a<12 lHEN a=5:RETURN:REM MA 
NZANA 8% 


1460 IF a(25 THEN a=4:RETURN:REM LI 
MON 13% 
1470 IF a(43 THEN a=3:RETURN:REM FR 
ESA 18% 
1480 IF a<68 THEN a=2:RETURN:REM PL 
ATANO 25% 
1490 a=I:RETURN:REM CEREZA 33% 
1500 REM PRINT BONUS 
1510 PEN II:LOCATE 8,23:PRINT"BONUS 
:",RIGHT$(STR$(bn).I):RETURN 
1520 REM ENCENDER LUCES 
1530 t( 2: N=20(l 
1540 IF INKEY(18)(>0 THEN 1540 
1550 K=r:+I:N-N-IO:IF K=20 THEN PEN 
2:GOSUB 1420:GOTO 1530 
1560 PEN 4:LOCATE K,18:PRINT CHR$(2 
55):SOUND 7.N.l,2 
1570 IF INKEY(18)-0 THEN 1550 
1580 RETURN 
1590 REM SCORE 
160n F'EN 6: LOCATE 6.20: PRINT"TIENES 
:",LEFT$("0000",5-LENISTR$(se»);RI 
GHT$(STR$(se),LEN(STR$(sc»-I):RETU 
RN 
1610 REM PREMIO 
1620 PEN 8:LOCATE 6.21:PRINT"PREMIO 
:":LEFT$("0000",5-LEN(STR$(p,..»);RI 
GHT$(STR$(p,..).LEN(STR$(p,..»-I) 
1630 FOR n=l TO p,../10:FOR m-IOO TO 
20 STEP -IO:SOUND l.m.7,3:NEXT:a IN 
T(RND*26+1):BORDER a:INK O,a:NEXT:B 
ORDER O:INK 0,0 
1640 LOCATE 1,21:PRINT SPACE$(20):R 
ETURN 
1650 RE'M TIRADA 
1660 LOCATE 1.25:PRINT SPACE$(20);: 
FOR J=k TO 3 STEP -l:FOR n=5 TO 13 
STEP 4:FOR m=l TO 11 STEP 5:POKE fi 
1.m,POKE eol.n:a INT(RND*100+1):GOS 
UB 1440:POKE ea,.., (a-l)*12+I:CALL 40 
100 
1670 IF j=3 THEN MID$(a$(m\5+1),n\4 
, 1) R I GHT$ (STR$ (a) , 1 ) 
i680 NEX T: NEXT: F'EN 2: LOCA TE j, 18: PR 
INT CHR$(255):SOUND 7,1000,10:NEXT 
1690 RETURN 
1700 REM BONUS AUTOMATICOS 
1710 bn=O:DIM b(6):FOR hiTO 6:b$ 
RIGHT$(STR$(h) .1) 
1720 FOR piTO 3:FOR q-l 10 J:IF M 
ID$(a$(p).q,I)=b$ THEN b(h)=b(h)+1 
1730 NEXT:NEXT:NEXl 
1740 FOR h-6 TO 1 STEP -I,IF b(h)
4 
THEN bn=h ELSE NEXl 
1750 GOSUB 1510 
1760 ERASE b:RETURN 


SUBRUTI ' j 


1420: 
1440: 


Apagar luces. 
Probabilidades de las 
frutas. 
Imprimir bonus, 
Encender luces, 
Marcador, 
Obtención de premio. 
Tirada, Llama al Código 
Máquina. 
Bonus automáticos. 
Mover frutas o coger, 
Premios. 
logror bonus al encender 
sólo una luz, I 
Corgodor del Código 
Máquina, 


1770 REM COLLECT O USAR BONUS 
1780 F'EN 7:LOCATE 1.25:F'RIN1"MOVER 
FRUTAS o COGER": 
1790 IF INI:EY$<;."" THEN 1790 
1800 il$=UPF'ER$(INI(EY$):IF 11$-"" T 
HEN 1800 
1810 IF il$<"I" OR il$)"9" THEN GOS 
UB 1600:bn=O,LOCATE 1.25:PRINT SPAC 
,E$ (20);: kETURN 
1820 LOCAIE 1,25:PRINT SPACE$(20): 
1830 bl=3:b2-3:IF bn
3 THEN b2=1 
1840 i 2$ UPF'ER$ (INI.EY$) : IF 1 :!$<"I" 
OR i2$)"9" THEN 1840 
1850 i ( 1 ) =VAL (i 1 $) " (2) =VAL (i:!$) : d= 
ABS(i (l)-i (2»: IF d=O OR (d<)bl ANO 
d(>b2) THEN 1780 
1860 FOR piTO 2:,.. i(p),m(p)=1-5*< 
,..(7)-5*(,..(4):n(p)=-5*(,.. 1 OR ,..-4 OR 
,..=7)-9*(,.. 2 OR ,..=5 OR ,..=8)-13*(,..-3 
OR ,..=6 OR ,..=9):al(p) <m(p)+3)\4:a2 
(p)=n(p)\4:NEXT 
1870 a(I)=VAL(MID$(a$(al(2».a2(2). 
1»):a(2)=VAL(MID$(a$(al(I»,a2(1).1 
) ) 
1880 POI<E f i ] , m ( ! ) : F'OI.E col. n ( ! ) : PO 
I<E ea,.., (a(J)-I)*12+I,CALL 40100 
1890 PO
E fil,m(2):PO
E col,n(2):PO 
I,E ea,... (a(2)-1)*12+1:CALL 40100 
1900 b$=MID$ (a$ (al (1) ) , a2 (1) . 1 ) : MI O 
$ (a$ (al (1». a2 (1).1) =MID$ (a$ (al (2» 
.a2(2),I):MID$(a$(a!(7».a2(2).I) b 
$:bn=bn-I 
1910 RETURN 
1920 REM PREMIOS 
1930 IF a$(2) "666" THEN p,..=50:RETU 
RN 
1940 IF LEFT$(a$(2). 1)="6" ANO RIGH 
T$ (a$ (2). 1) ="6" THEN p,..=2(1: RETURN 
1950 IF 
$(2)='1555" OR a$(2)="565'1 
THEN p,..=IO:RETURN 
1960 IF a$(:!)="444" OR a$(2)="464" 
THEN p'" 8:RETURN 
1970 IF a$ (2) "333" OR a$ (2) "363" 
THEN p,..-6:RETURN 
1980 IF a$ (2) "222" OR a$ (2) ="262" 
THEN p,..-4:RETURN 
1990 IF a$(2)="111" OR a$(2) "161" 
THEN p,..=2:RETURN 
2000 p,..=O:RETURN 
:,,, 1 O f'LN 12: LOCATE 3.25: PR I NT" BONUS 
CON UNA LUZ": 
:'0:'0 GOSUB 1530: 1 F ¡, 3 ANO bn: 9 THE 
N bn=bn'I:GOSU8 1510:GOTO 2020 
203(1 GOSUF< 14
f"LOCAIE 1.25:PRINT S 
PACE$(
I!::kETURN 
2040 REM CARGA DEL CODI50 MAOUINA 

050 MEMORY 37695:RESTORE 2910:FOR 
1
37696 10 4006(':RFA[) a$,POI:E i,VI'!L 
("l,"+a$): NEXT 

'(l6(' RES'IORF 2070:fOR 1=0 TO 54:REA 
D aS,POI.E (4010n+l).VAL(.....+a$):NEX 
r 
:,n70 UATA DD.E5.DD.21.40.9C,DD.66,O 
I.DD.6E,03.DD.7E,05.06.04.E5.C5,06, 
(1
.DU./4.(]1.DD.75.03.DD
77.05
E5.C5 
.F5.DD.E5,c6,40.9C.DD.EI,Fl.Cl.El.2 
4,:':C. lO, E6, CI. El, 2C. 10. DO. DD,El, C9 
?OBO RETURN J 
2910 DATA 0.0.0.0.0.0,0.0.0.a8 
9000 CLEAR:SAVE "f,..utas.ju,,":SAVE .. 
frlltas. b1 n H, b.. 37696.. 2363 
2910 DATA O.0.0.0.0.0,0,0,0.A8 
2920 DATA O.O:O.FC.O.O.O,AC.FC.O 

930 DATA O
F
.5C.O.(1
54.AC.O.(1.54 
2940 DAIA AC.(I,(J,(I,(I,O.(I,O,(),(J 
2950 DATA O.O.
C.O.O.FC.FC.O.O.FC 
2960 DATA AC,AB.54,AC.5C,FC.54.5C. 
FC.FC 
:'970 DATA FC.5C.FC.0.0.0.0.0.FC.A8 
2980 DATA 0,FC.AC.A8,0.AC.5C.A8.0, 
5C 
2990 DATA FC.0.0.FC.FC.0.0.FC.A8.0 
3000 DATA O.
C.O.O,O,O,O,O.FC,O 
3010 DATA O,O.
C.0.0.0.54.0,0.0 


1510: 
1530: 
1600: 
1620: 
1660: 


1710: 
1780: 
1930: 
2010: 


2050: 
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..... 



3020 DATA O
O,O,O,O,O,(I,O,O,O 
3030 DATA 0,0,0,0,0,0,0,5C,AC,FC 
3040 DATA FC,5C.5C.FC.0.AC,FC.A8. 
O, FC 
3050 DATA AB.A8.0,A8.A8,A8.0.AB, 
AB
54 
301;>0 DATA 0.AB.A8.54.0,A8.54.0.AB. 
O 
3070 DATA 0,0,0.0.0.0,0.0.0,0 
3080 DATA O,O,O
O
O,O,O
O.O.O 
3090 DATA O,O,(I.O.O.O.

O.O.O 
3100 DATA 0,0.0.0,54,0,0,0,54,0 
3110 DATA 0.0.54,0,0,0.AB.0.0,CF 
3120 DATA AC.O,45.DE.8E.O,45,CF. 
8E,0 
3130 DATA 45.CF,8E
().54.0
A8.().54, 
O 
3140 DATA 54.CI
54,(1,54
45,DE.8A,O
 
CF 
3150 DATA ED,ED,O,CF.CF,AC,CF,CF. 
CF,4D 
3160 DATA DE.CF.CF,4D,CF.O,O.0,0.0 
3170 DATA O,O,O.O,O,O,O.AB,O,O 
3180 DATA O,AB.O,O,O.ED,O,O,O.DE 
3190 DATA 8A,0.O,DE,8A,0.0,0,45,CF 
3200 DATA 8E,0,45,CF.8E,O.45.CF. 
8E.0 
3210 DATA 45,CF.8E.0,45,CF,6F.0.0. 
CF 
3220 DATA CF.O,O.O.O,O.O.O,O.CF 
3230 DATA CF,40.CF,CF.CF,4D.CF,CF. 
CF,4D 
3240 DATA CF.CF,9F.4D.CF.4D.CF,4D, 
CF,O 
3250 DATA 0,45,CF.0,0.0.CF,0.0.0 
3260 DATA 0.CF,8A,0,0.CF,8A.0,0.CF 
3270 DATA 8A,0,0.9F.8A.0,0.9F.BA.0 
32BO DATA 0,6F,BA,0.0,CF.O,0,0.0 
3290 DATA O,O,O,O
O,O.(I
O,O.O 
3300 DATA O
O,O
O
O.O,O
O,O
O 
3310 DATA 0.0.0,0,0.0.0,0.0.0 
3320 DATA O,O,O.(I,O,O.O
O
O,O 
3330 DATA (I,O.54
O.O.(1.54,O,O,() 
3340 DATA 40.0,0,0,40,0.0,0,40,0 
3350 DATA O,O,40,0,O,O.D4,0.0.0 
3360 DATA O,FC,O.O,O,AB,54,FC,O,AB 
3370 DATA 54.AB,0.80.40.AB.O,BO, 
40,80 
3380 DATA 0,BO,CO,BO.0.80,D4.BO.0, 
II 
3390 DATA 0,0,0.0,0,0.0.0.0,0 

.400 DATA O.O,O.O,O,O
O
(I
O.(I 
3410 DATA (),O.(I.O.(I.O,O,(I,O
54 
::.420 DATA FC,O,O,40.EB,O,O,40,EB,O 
343() DATA O,D4.80.0,0.D4.BO.0,40. 
E:. 8 
3440 DATA 40.0.40.EB.40.0.D4,80, 
CO.80 

450 DATA 04,80,04,40.D4.80.0,40, 
E8,O 
3460 DATA 0,CO,E8.0.0.D4.CO,O,O,D4 
3470 DATA CO,O.0.E8,CO,O,O,E8,80,0 
3480 DATA O,CO. 80, O, (1, O. O. 54, FC. O 
3490 DATA (1
54,EB,(I,O
40
CO,O,0,40 
3500 DATA 0.0.0.0.FC.0.O,54,FC.0 


Para que lu! deda. 
no realicen el Irabojo duro, M H. AMS. 
TRAD lo hace por li. Todos los lisiados que incluyan 
este lagolipo se encuentran a lu dISpoSICIón en un Cas. 
seffe mensual, sollCllanoslo 
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3510 DATA 0.54.FC,0,0,0,CO,E8,E8, 
40 
3520 DATA D4.E8.EB,40.E8.D4,80,CO. 
E8.40 
3530 DATA 40,D4,CO.80,CO,E8,CO.E8, 
 
FC,CO = = 


40 DATA CO,D4.CO,CO.CO,CO.CO,CO, 
48.CO ;.:
..' 
3550 DATA 80,0.0,CO,80,O,O,CO,0.0 
3560 DATA O,CO,0,0.O,80.0,0,0,80 
3570 DATA O,O,O,(I
(I,O,O,O,O.() ....--------..--- 
3580 DATA 0,O,O,O,CO,O,O,0,40,0 T3:ENES=0030 
3590 DATA 0,0.0.0,0.0.0,0.0.0 
3600 DATA 0,0.0,0.0.0.0,0.0,0 BOt:'4.US : O 
3610 DATA 0.O,O,CO,CO,C,80,CO,C,CO ,- , .:..... ..., UÑA ,- 
3620 DATA O,40
CO,0,O,O,O,(I,O,O 
3630 DATA 0.0.0,0.0.0,0.0.0,0 
3640 DATA O,O,O,O,O,O,O,O,O
(I 
::,650 DATA (I,O
O,(I,O,O,O,O,O,O 3800 DATA 9F.0.0.O.CF.54.E8,FC.A8, 
3660 DATA O,O
O,O
O,O,O,O
(I,O ° 
3670 DATA 0,0,(1,0,0,0,0,0.0,0 3810 DATA E8,E8.0.DE.FC,FC,A8,DE, 
3680 DATA 0,0,0,0.0,0,0,0,0,0 FC,OE 
3690 DATA O,(I,O,(I
O,O,A8,(I,O.(1 3820 DATA ED,DE.CF.CF.ED.CF.CF,6F, 
3700 DATA FC,0,O,O.54,O,O,O,54,0 CF.CD 
3710 DATA 0.0,0.0.0.0.0,FC.0,54 383(1 DATA CE.CF.CD,CF.CF.CF,9F,0, 
3720 DATA A8,FC,A8,FC.A8,54,FC,FC, 0,0 
O.FC 3840 DATA (1,(1,0,0,0,0,0,0.0.0 
3730 DATA E8,FC.FC.FC.FC,D4,D4.FC, 3850 DATA O,O,O,O,O,O,O,8A.O,O 
D4,D4 3860 DATA 0.8A.0,O,O.CF,0.0.O,O 
3740 DATA A8,O,0,0.0,0.0.O,O,O 3870 DATA O.O.CF,O.O,O,CF.O.O.O 
3750 DATA 0.0.0,54,A8,O,O,FC.O,O 3880 DATA CE.0.0.0,45,0.0.0.45,0 
3760 DATA 0.FC,0.0.O,A8.0.0,O,0 3890 DATA 0,0,45.0.0,0,45,0,0,0 
3770 DATA 0,0,0,0,0,0,0,0,0.0 3900 DATA O,CE.CF.CF.CF.9F.CF,6E. 
3780 DATA (I,O.O,(I,(I
(I.O,O.45,O CF, CF 
3790 DATA (I,O
45,O
O,0,45.0,0,O 3910 DATA CF.CF.CF.6F.CE.CD.CF.CF. 
CF,CF 
3920 DATA CD.CE,CF.6F,CF.9F.CE,CF. 
DF,CF 
3930 DATA CF.CF.EF.CF.O.O,O,CF,O.O 
3940 DATA O,EF,O,O,O.EF,O,O.O,AA 
3950 DATA 0,O,O,AA,O.0,0.8A.O,O 
3960 DATA O,O,(I,O,O,O.O
O,O,O 
3970 DATA O,O.O.O,O.O.O.O.u.O 
3980 DATA O.O,O.O
O,O
(I,O
O.O 
3990 DATA O,O.O,O.O.O.O.CF,CF.DF 
h, i, i, m, 4000 DATA CF.45,CD,EF.8A.45,6F.CF, 
n, p: Contadores de bucle. 0,45 
4010 DATA CF.8A,O.45,8A.0.O,O,0.0 
a: Lectur de DATA Y diversos 4020 DATA 0,0,0.(1,0,0.0,0,0,(1 
usos. 4030 DATA 0.0.0.0,0.0.0.0,0.0 
0$0: Codificación de la tirada 4040 DATA (I
O
O
O,o,o,O,O.(I
O 
4050 DATA 0,0,0.0.0.0.0.0.0,0 
obtenida. 4060 DATA 0,0,0,0,0,0,0,0,0,0 
ex: Dirección de entrada al 4070 DATA 0.0,0,0.0,0.0,0,0.0 
código máquina. 4080 DATA o,o,o
o,O,O.(I,O.O,O 
4090 DATA 0,0,0,0.0,0.0.0,0,0 
col: Dirección donde se 4100 DATA 0,0,0,(1,0,0.(1.0.(1,0 
almacena la columna del 4110 DATA o.o,o.o.o,O.O.O,CO.CO 
4120 DATA o,co,co,co.co.o.o,o,o,o 
dibujo. 4130 DATA 0,0.0,0,0,0,0.0.0,0 
fil: Dirección donde se 4140 DATA o
o,O.O,O,(I,O
O,O,o 
almacena la fila del dibujo. 4150 DATA 0,0.0,0,0.0,0,0.0.0 
4160 DATA 4CI,0,0,o,co,o,o,0.co,o 
car: Dirección donde se 4170 DATA O,40.CO.0.0.40.CO,O,o.co 
almacena el dibujo. 4180 DATA CO,O,O,CO.CO,O,o,CO,CO, 
CO 
se: Dinero disponible. 4190 DATA CO.CO.Co,Co,CO.Co,CO.CO. 
bn: Número de bonus. CO,CO 
Premio obtenido. 4200 DATA 
,
,ro,ro,
.
.
.
, 
pr: co,co 
0$, il$, 4210 DATA CO.Co,CO.CO.Co.CO.CO,CO, 
i2$: Lectura del teclado. co,co 
k, n: Fila y columna para 4220 DATA CO,80.0.0,o,co.0.0.0.co 
4230 DATA o,O,CI,C(I,BO,O,O,CO,BO,O 
encender luces. 4240 DATA 0.CO.CO,O,0,48.48,0.0.CO 
bO: Contador de bonus de 4250 DATA 48,0.0.O,o,co,co,0,o,co 
4260 DATA co,o,o,co.cO,O,0.40,CO,O 
distintas frutas. 4270 DATA 0,40,CO,O.0.0.CO,o,o.0 
b$: String con números 1-6. 4280 DATA co,0,0.0.40.CO.48.84.CO, 
Las variables utilizadas en la fase de co 
4290 DATA co.co,co,co.CO.CO,84,84, 
«tirada» son: b 1, b2, d, r, iO, mO, 00, CO,48 
010, 020, nO. 4300 DATA co.co,CO.CO.48,CO,84.84. 
CO.CO 



.ríe 'ro 


4310 DATA CO,CO,84,CO,48,84,4
.48. 4700 DATA 3F.A8,O.0.0,FC,0.O,O,FC 3F,6F 
48,0 4710 DATA O,O,O,FC,O,O,O,FC,O,O 5020 DATA CF.CF.3F.3F.6F.CF.6F.CF, 
4320 DATA 0,CO,48,0.0,84,CO,0,O,84 4720 DATA 0.FC.0,0,0.FC.0.0,0,A8 9F,CF 
4330 DATA 80,0,0.48,80,0,0,48,0.0 4730 DATA 0,0.0,0.0,0,54,0,0.0 5030 DATA 6F,CF.9F.CF,6F,CF.9F,CF, 
4340 DATA 0.CO,0,0,0,80,O,0,0,0 4740 DATA 0.0.0,0.0.0,0.0,0.0 3F,3F 
4350 DATA 0,0,0,0.0,0.0.0,0,0 4750 DATA 0,(1,0,0,(1,0,0,0,0,0 5040 DATA 3F.CF.3F.3F.6F.CF.CF.CF, 
4360 DATA 0.0,(1,0.0.0,0,0,0,(1 4760 DATA 0.0,0,O,O,FC.FC,BD,7E,FC CF,CF 
4370 DATA 0,0,0,0,(1,0.0,0,0,0 4770 DATA FC.FC,FC,54.FC,FC,A8,0, 5050 DATA CF.CF.CF.9F,3F,3F.6F.9F, 
4380 DATA O,CO,84,48.CO,0,CO,CO,0, 0.0 CF.CF 
° 4780 DATA (I,O,O,O.O,O,(I,O.O,CI 5060 DATA 6F.9F.CF.CF.6F,9F.CF,CF. 
4390 DATA o,o,o,O,O,CI,O.O,CI.O 4790 DATA (l,o.o.o,O.O,O.AS,O,O 6F,9F 
4400 DATA 0,0,0,0,0,0,0,0,0,0 4800 DATA 0.0,0,0,0,0.0,0.0,0 5070 DATA CF,CF,6F.9F.CF.CF.6F.CF. 
4410 DATA 0,0,0,0,0.0.0,0,0,0 4810 DATA (1,0.0,0,0.0,0.0,0,0 CF.CF 
4420 DATA 0,0.0,0,0,0.0,0,0,0 4820 DATA (1,0.(1,0.0,0,0.0,0,0 5080 DATA CF.CF,CF,CF.CF.3F.3F.6F. 
4430 DATA 0.0,0,0,0.0,0,0,0,0 4830 DATA 0.0,0,0,(1.0,0,0,0,0 CF.6F 
4440 DATA O,O,0.0
O,O,o,o,o,o 4840 DATA o.o.o.o.o,co,co,Co,co.co 5090 DATA CF.9
.CF.6F,CF.9F.CF,6F. 
4450 DATA o,o,o.C),O.CI,O,O,O,o 4850 DATA cO,CO,CO,FC,FC,FC,FC,FC, CF,9F 
4460 DATA 0,0,0,0,0,0,0,0,0,0 FC.FC 5J(1(J DATA CF.6F,CF.9F,CF,6F.CF,9F. 
4470 DATA 0.0,0,0,0,0,0.0,0,0 4860 DATA FC,O,O,o,O.CI,o,o,o,o CF,CF 
4480 DATA (I.O.CI,O.O,O,o,O,o.o 4870 DATA o,o,O,O,O,o,o,CO,CO,CO 5110 DATA CF,CF.CF.CF.CF,CF,CF,FC, 
4490 DATA (I.O.CI,CI,CI.O.O.O,CI,O 4880 DATA cO.CO.CO,CO,CO,FC,FC,FC, FC.FC 
4500 DATA 0,0,0.0.0,0.0.0.0,0 FC,FC 5120 DATA FC.FC.FC.FC,FC.CO,co,co, 
451(1 DATA O.(I.O,O,O.CI.O,O,CI.O 4890 DATA FC.FC,FC,O.O,o.o,O.o,o CO,CO 
4520 DATA o.O.O,CI.O.CI,O,CI,O,CI 4900 DATA o,o,o,o,o,O,O,CI,O,CO 5130 DATA cO,co,co,o,o.o.o,O.o,O 
4530 DATA 0.0,0.0.0.0,0.0.0.0 4910 DATA cO,co.co,co,co,CO,CO,FC, 5140 DATA o,o.o,o,CI,o,O.CI,O.FC 
4540 DATA o,o,o.o,o,O,O,(I,O
O FC,FC 5150 DATA FC,FC,FC.FC.FC,FC,FC.CO. 
4550 DATA 0,0,0.0.0,0,0.0,0.0 4920 DATA FC,FC,FC.FC.FC,CF,CF,CF, CO,CCO 
4560 DATA 0,0,(1,0,(1,0,0,0,0,0 CF.CF 5160 DATA co.co.co,co,co.o.o.o,o.o 
4570 DATA 0,O
54,O,O,51,O,O,O,51 4930 DATA CF.CF,CF,CF.3F,3F,6F,CF, 5170 DATA o,o
o,O,O,O,(I,O,O,() 
4580 DATA O,O,0,A2,O,O,O,A2,O,O 3F,3F 5180 DATA O.FC,FC,FC.FC.FC.FC.FC. 
4590 DATA 0.A2,0.54.FC,F6,A8,FC. 4940 DATA 3F,CF,6F.CF.9F,CF.6F,CF, FC.CO 
FC,A6 9F,CF 5190 DATA co,co,co.co.CO.co,co,o. 
4600 DATA FC,FC.AC.5C.FC.O.O.0.0.0 4950 DATA 6F.CF,9F.CF,3F,3F,6F,CF, 0,0 
4610 DATA O,O,(I,O
(I,O
O,O,o,o CF.CF 
200 DATA 0,0.0.0.0.0.0.0.0.0 
4620 DATA (1,0,0,0,(1,(1,0,0,0,0 4960 DATA CF.CF.CF,CF.CF.CF,3F,3F. 5210 DATA 0,0,O,26,F,2E,E.3E,18,6 
4630 DATA (I,O,O,A8.0
(),O,O,O,o CF.9F 5220 DATA 4, F5, CD, 1 A. BC. F 1 , 11 , 4O. 
4640 DATA 54.0.0.0.FC,O.O.(I
FC,0 4970 DATA 3F.$
.6
.

.

.

.6F,

, 93,48 
4650 DATA O
(I,FC,O
O.O,FC,O,O,o CF,CF 5230 DATA CB.21.CB,21,CB,21.C5,3D, 
4660 DATA FC,O.0.0,FC,O.0,0.54,FC 4980 DATA 6F.9F.CF,CF.6F.9F,3F.3F. 28,7 
4670 DATA FC,FC,FC.E8,FC.FC,FC,CO, 6F,CF 5240 DATA 41.13.10, FD. CI. 18, F5. CI, 
FC,FC 4990 DATA CF.CF.CF.CF.CF.CF.CF,3F, E,8 
4680 DATA FC,FC.FC.FC.FC,FC,FC,FC, 3F,6F 5250 DATA CS, F 1, F5, 47, ES, lA. 77.13. 
BD,FC 5000 DATA CF.3F.3F,3F.CF.6F,CF,9F. 23,10 
4690 DATA FC.FC.BD.FC.FC,FC.BD.FC, CF,6F 5260 DATA FA.El,6.8.24,10.FD,D,20, 
FC.BD 5010 DATA CF.9F.CF.6F.CF.9F.CF.3F. ED 
5270 DATA FI.C9.0.0.0.0.0.0.0.0 
MICROHOBBY AMSTRAD SEMANAL 


LE OFRECE AHORA SUS PROGRAMAS 
YA GRABADO
 PARA QUE VD. 
NO TENGA QUE TECLEARLOS 


Todos los programadores y aficionados a la microinformática sabemos lo tedioso y 
propenso a errores que resulta el teclear un listado de un programa. Para facilitar tu 
labor al máximo y que no tengas que estar horas sobre el teclado de tu ordenador 
tratando de descifrar incomprensibles mensajes de error, AMSTRAD SEMANAL te ofrece 
cada mes los programas publicados de los cuatro números correspondientes en una cinta 
de cassette, sólo por 675 ptas. (sin más gastos por envío). 


Poro que lus dedos 
no realicen ellroboio duro, M. H. AMS. 
TRAD lo hace por li, Todos los lisiados que incluyan 
esle logolipo se encuenlran a lu disposición en un cos, 
selle mensual, solieílanoslo. 



 


Envíanos con la menor demora posible, el cupón correspondiente. 
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Un niño travieso, perdido en 
unos grandes almacenes, vaga 
sin cesar por las distintas 
plantas y secciones 
comerciales; deportes, 
juguetes, sonido, librería, 
muebles, ropa de caballero, 
restaurante, ¿Conseguirá 
encontrar a sus padres? 


robablemente el nombre 
de Herbert no tenga 
n significado 
especial para nadie, pero si empe- 
zamos a hablar de Wally y su fami- 
lia, tal vez la cosa comience a tener 
algo de sentido, 
Wally es la estrella de Micro Gen, 
compañía inglesa autora de todas 
sus aventuras. 
El debut de Wally en la pantalla de 
ordenador tuvo lugar en Automanía, 
su primera aventura, en la cual nues- 
tro amigo es un mecánico de auto- 
móviles, desarrollándose la acción 
en su garaje. Wally debe recoger las 
distintas piezas de los coches y Ilevar- 
las al foso donde montará el auto- 
móvil. 
Sus enemigos son ruedas locas, ca- 
feteras, bujías, etc. 
La segunda aventura es Pyjamara- 
ma, la pesadilla de Wally. El espíri- 
tu de nuestro héroe sufre terribles 
alucinaciones y deambula por su ho- 
gar, que se transforma en un nido de 
trampas, cada habitación tiene sus 
moradores y terribles sorpresas. 
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Esta segunda aparición de Wally, 
es mucho más que un arcade como 
era Automanía, en ella debemos uti- 
lizar los objetos que encontramos pa- 
ra facilitar nuestro camino por las 
distintas estancias. 
La trama es bastante complicada 
y completar la aventura requiere lar- 
gas horas de juego. En su pesadilla 
el protagonista incluso debe viajar a 
la Luna, caminar por cornisas y ma- 
tar marcianos. Su objetivo, poder ha- 
cer que su espíritu se reúna con su 
cuerpo que mientras tanto duerme 
plácidamente, 
Por fin aparece la familia en su ter- 
cera aventura, Evryone's a Wally, 
nuestro mecánico ahora es el jefe de 
una banda de ladrones de cajas 
fuertes. 
Los componentes de la banda: 
Wally, el cerebro de la banda. 
Wilma, mujer de Wally. 
T om, el punky de la banda exper- 
to en mecánica. 
Dick, un fontanero capaz de desa- 
tascar lo que sea. 
Harry, el hippie diplomado en 
electrónica. 
Herbert, hijo de Wally y Wilma. 
El escenario en esta ocasión es la 
ciudad natal de Wally, con sus sitios 
tír;>icos¡ zoológico, parques, carnice- 
ría, banco, muelle e incluso un pub 
el Blue Lyon. 
El objetivo: abrir la caja fuerte del 
banco. 
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Un juego con personajes interac- 
tivos, que siguiendo la estela del 
Pyjamarama tiene una trama muy di- 
fícil de desvelar. 
Después de un largo viaje por la 
historia de Wally y sus aventuras, 
por fin llegamos a Herbert. 
El bebé que en Evryone's a Wally 
andaba a gatas por las calles de 
Wallytown, con el paso del tiempo 
ha aprendido a andar y ahora es un 
niño de lo más travieso. 
Una tarde nuestro amiguito salió 
de compras con sus papás, como to- 
das las familias cuando salen de 
compras¡ van a unos grandes alma- 
cenes. 
De todos es conocida la fama de 
los almacenes ingleses, con un núme- 
ro sin fin de secciones y plantas. 
En una de estas expediciones fami- 
liares en busca de ropa y artículos 
para el hogar, nuestro amiguito en- 
simismado por las maravillas del de- 
partamento de juguetes se entretie- 
ne demasiado y pierde el contacto 
con sus padres. 
Wilma y Wally no pudiendo en- 
contrar al muchacho deciden espe- 
rarle en el departamento de niños y 
objetos extraviados. 
Todo iría bien si nos encontráse- 
mos en una situación normal, pero la 
suerte no acompaña a la familia 
Week. 
Una amenaza de bomba, ha sido 
recibida en la centralita de los alma- 
cenes y éstos han sido evacuados ur- 
gentemente. 
Herbert, distraído entre los jugue- 
tes pasó desapercibido a los emplea- 
dos que huían despavoridos, cum- 
pliendo a rajatabla aquello de «sál- 
vese quien pueda», traicionando lo 
de «el capitán es el último que aban- 
dona el barco». 
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Los padres de Herbert deciden es- 
perar a su hijo hasta el fin y se que- 
dan en el departamento de niños 
perdidos en espera de su querido re- 
toño. 
Es exactamente la una del medio- 
día, 1 PM en el Reino Unido y la 
bomba tiene programada la explo- 
sión a las cinco y media, nuestro hé- 
roe debe llegar hasta sus padres an- 
tes de la hora fatídico, de lo contra- 
rio todo estará perdido. 
Para resolver la aventura, debe- 
mos superar una gran variedad de 
pantallas arcade, en las que los ob- 
jetos recogidos en otros departamen- 
tos, son imprescindibles para poder 
afrontarlas; no podremos jugar al te- 
nis sin raqueta, ni demoler edificios 
sin bombas. 
Todas las fases arcades represen- 
tan emocionantes y adictivos juegos 
por sí mismos, sin tener en cuenta el 
hecho de que forman parte de una 
gran aventura. 
Movernos de planta en planta es 
posible por medio de los ascensores, 
cabiendo también la posibilidad de 
escalar fenomenales maromas. 
Las lágrimas, fuente de vida de 
Herbert, deben ser incrementadas 
con golosinas, que buscaremos en 
los distintos departamentos, el dine- 
ro también juega su papel y permite 
obtener otros objetos, 
Bombas, interruptores, chocolate, 
miel, cuerdas, monedas y demás ob- 
jetos tienen utilidad en la aventura y 
su uso debe descubrirse a base de in- 
genio y bastantes horas de aventu- 
ra. 
Es de destacar que a pesar de ser 
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un juego inglés, todos los mensajes 
que aparecen en pantalla vienen tra- 
ducidos al castellano, facilitando su 
reconocimiento y utilización. 
Un programa que proporcionará 
largas horas de diversión, a todos los 
amantes de los juegos que salen de 
la esfera del arcade para transfor- 
marse en grandes aventuras en las 
que el ingenio es la clave del éxito. 


Publicidad 
Se afirma con insistencia la inminente op.orición en castellano de... 


I 
l 


La revista de mayor prestigio en Europa 


¿SERA VERDAD? 
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MENU PARA DISCO 


La diferencia fundamental 
entre un sistema basado en 
cassette y uno basado en 
disco es, por supuesto, la 
velocidad en general para 
cualquier tarea, y en 
particular para cargar y 
salvar programas. 


n esto último, mientras el 
disco tarda segundos, el cassette 
consume minutos, durante los cuales 
nos mordemos las uñas de mal disi- 
mulada impaciencia (al menos, yo lo 
hago). 
No estaría de más tener a mano 
un programa que, al ejecutarlo, pre- 
sentara en pantalla el contenido del 
disco, permitiéndonos escoger el 
programa deseado de una manera 
sencilla y ejecutarlo. Si esto fuera po- 
sible, la diferencia entre cassette y 
disco quedaría aún más patente. 
El programa que presentamos 
aquí lo hace. 
No obstante, para que una aplica- 
ción así resulte eficiente, debe ser im- 
plementada preveiendo frecuentes 
cambios en el contenido del disco¡ en 
efecto, si, por ejemplo, colocáramos 
en sentencias DATA dicho contenido, 
nos veríamos obligados a modificar 
el programa menú cada vez que al- 
teráramos el disco. 
En definitiva, necesitamos un pro- 
grama «inteligente» que mire en el 
disco, averigue los programas que 
hay en él y nos los ponga en panta- 
lla. 
Nuestra estrategia será hacer que 
el Amstrad ejecute la misma se- 
cuencia que haríamos nosotros, es 
decir, un catálogo del disco, y luego, 
simplemente, elegir el programa y 
cargado o ejecutarlo. 
El Basic del CPC464 no posee un 
comando para leer directamente de 
pantalla (el 664 y el 128 sí), por lo 
cual, hemos implementado una ruti- 
na en máquina para que el progra- 
ma sirva para los tres ordenadores. 
Además, esta rutina es muy especial, 
y la comentaremos en detalle más 
adelante. 
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RUTINA READCHAR 


Propósito: leer un caraeter de la pantalla 
en la posición especificada por el registro 
HL y almacenar el caraeter leído en la 
variable Basic «(har». 
Llamadas desde Basic: líneas 490,530, 
570. 


Dirección de carga: &800l. 
Dirección de arranque: &8001, 
Longitud en bytes: 20, 
Registros utilizados: IX, H L, AF, Be, DE. 
Registros modificados: IX, HL, AF, 


LO L, (IX+O) 
LO, H, (IX + 2) 


Obten el valor de la 
variable «y» (fila). 
Obten el valor de la 
variable «x» 
(columna) , 
Posiciona el cursar 
de texto. 
Lee el caraeter de la 
posición del cursar y 
almacénalo en el 
acumulador. 
Coge la dirección. 
De la variable char, 
Almacena el carac- 
ter en dicha 
variable. 
Vuelta al Basic. 


CALL &BB75 
CALL &BB60 


LO L, (IX+4) 
LO H, (IX+5) 
LO (HL), A 


RET 


Por tanto, quedamos en que el 
programa hace un CAT, lee los pro- 
gramas de la pantalla mediante la 
rutina en máquina y los almacena en 
una matriz. Todo este proceso es in- 
visible, porque el color del papel y 
la tinta es el mismo mientras dura. 
Una vez hecho esto, el programa 
presenta en pantalla un submenú 
que nos permite elegir entre distintos 
tipos de ficheros. 
El método de elección es muy sim- 
ple: nos desplazamos por la panta- 
lla con las teclas del cursar hasta lle- 
gar al programa elegido, y pulsamos 
ENTER. iY ya está! 
Ahora la rutina en máquina: 
se pueden ver en el listado ensam- 
blador que hay dos llamadas a ruti- 
nas del firmware. 
La primera, dirección &BB75, po- 


COMPATIBLE 
CPC 464 
CPC 664 


. T 1, 
2. 
- ,10 B 
. S 1, 1 


ro 


siciona el cursar de texto en las posi- 
ciones especificadas por el registro 
doble H L. 
La segunda, dirección &BB60, es la 
que lee el caraeter en la posición del 
cursor de texto. 
Hasta aquí todo está claro, pero 
si observamos la línea 490 del pro- 
grama menú, veremos que se hace 
una llamada a esta rutina (cal/ read- 
ehar) y que se le suministran tres pa- 
rámetros: 


@char 
x 
y 
El primero es la dirección de una 
variable donde queremos que la ru- 
tina en máquina readchar deje el ca- 
raeter, y los otros dos son las posi- 
ciones donde readchar colocará el 
cursor de texto y leerá el caracter. 
La clave está en los mnemónicos 
que manipulan el registro doble IX, 
y en que el comando CALL de Basic, 
cuando se le suministran parámetros 
además de la propia dirección de 
arranque, deja el registro IX apun- 
tando al ULTIMO DE LOS PARAME- 
TROS. 
Por eso, (IX + O) corresponde al 
valor de la variable «y», y como ocu- 
pa dos byte s, la variable «x» estará 
posicionada en (IX + 2). 
El mismo razonamiento nos dice 
que la dirección de la variable char 
estará en (IX +4), en cuyo contenido 
metemos el valor del acumulador, el 
caraeter leído, mediante la simple 
maniobra de cargar H L con la direc- 
ción y cargar el contenido de HL con 
el acumulador. 
Por tanto, ya sabemos: 
1. Mandar parámetros a una ru- 
tina en máquina desde Basic. 



ESTRUCTURA 
DEL PROGRAMA 
LlNEAS FUNCION 
180-290 Inicializa variables, 
300-440 Obtiene el tipo de fichero, 
Se pueden añadir otros si 
se desea, 
460-590 Introduce los nombre- 
fichero en una matriz, 
640-750 Imprime el menú, 
760-880 Selecciona programa, 


I 
j 
1 


VARIABLES 


name$ (64) Nombre de los ficheros, 
coord (64,1) Posiciones de impresión, 
prog Número de programas, 
type$ Tipo de fichero, 
char Caracter leído en la 
pantalla por la rutina 
«readchar». 
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2. Devolver los resultados de la 
rutina en una variable Basic y luego 
manipularla. 


Publicidad 


Toda España /0 comenta... 


. 
erl a 


" 


· 1 13 
; H,'1 r"1 e n I I ¡:, .:<. r. .:<. d i 
. e,::, 
20 REt'1 por' F:.A .I,.I:<.,j,j i 10'''!1? 
::::0 F;Et'1 ,; e;' Am
 t r. :<.d :. 12m.;.. n .:<.1 
40 REM ----------------------____ _ 


5(1 GDSUE: 1 :313 : F;H,'1 In i e i .:<.1 ¡ Z:<.C i on 
60 GOSU8 46B:REM obtener nQmbr
s 
70 I F HJ:=;TF;'; f i 1 e'$. , " . E: n.¡" ;. =0 THEiJ F'I! 
t'..J f i 1 e$ 
:30 C:L 
::; : I r',JF'UT . " H I ¡"1Et'1 ": 01. 
'7'0 I F .:<=.
,:3(H::n:1 THEt..J r'1Er"l(1F',\' 8,7FFF F: '-' 
E I F .:<. T H E/'.J 1"1 ErKIV'( .:<. - 1 
1130 PF:H,JT "La.:<.d Q RlJn (L./¡:;::> ;," 
1 1 O 

 ':1:.=" " 
1 20 I.....IH I LE 
::'$. <::= "L" Ar'.JD k':I:. <:> " F'" 
130 kS=UPPERS(INKEYS) 
1 4 t 1 I"J E t.,1[:o 
1513 I F k'$=" L" THEt'-J LC:I
'
[' f ¡ 112'$ EL::::E 
RUN f ¡le $ 
1 613 EI'..m 
1713 REM --------------------------- 
1 ::::13 REr"1 In i .: i .011 : -:: :<.:::- ¡ oro 
1 9
3 'r-¡ D 1 ::::C' 
200 NODE 1 :INK O
0:BORDER O 
210 DEF 1 t.-n t,-z 
22(1 DI t"'1 n01.rne'$ (. .54) 
 e Dor' d': ,
A , 1 ::o 
230 FOR i=1 TO 20 
240 READ .:"$ 
250 PCWE .£.,800
3+ i ,I.)AL( ",
<." +.01'$) 
2 611 t.J E/'T 
270 DATA DD.6E,00
DD,66,02,CD,75.88 

CD,60,88,DD,6E.04,DD,66.05,77
C9 
280 r. e .:<.d,: h:<.r'=S.
::::0 
3 1 : e h .:<.r'=0 
2';;1
3 p r. oCJ= 
 : t ,:
"p e'
.= Ir 11 
3130 cAPER 3:LOCATE 9,5 
:::'11) F'F: I t'..JT 11 I mp r. ¡mi r. me n IJ r'.:<.r:.... .;. 11 
320 PAF'ER 0:PEN 2 
:-=::-=:¡7. LOCATE 12, 1 
3: F'F:lt.fT ":. Todo':' ,1:, 
': f i cher'o,:: 11 


La revista de ordenadores de mayor venta en toda EUROPA 


Publico codo mes los mejores programas en Código Máquina que se pueden ver en uno revisto 
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:340 LCiCATE 1 - 1 '-:J F'PINT " - :::01 1:1 E::<.'::. 
"- . "- : ..::. 
! e " 
:::50 LCiCATE 1 1 .l : F' F: 1 ¡.JT " - 1 o E: i n 

 , -' '='L' I 


.:a.r' i ':1" 
360 
I]CATE 1 2 
 1 ,
, : DF? 1 t...jT "4. ::;01 o f i e 
h ¡::;. r o.::. E:Af.(" 
37Ct I.!.JHILE t::--p Eo'$. < " 1" CJF.' t::...p Eo'$. > "4" 
:3::: O t y' P Eo '$= 1 "W: E(:!: 
.3'
'O l',IEr.W 
4(10 Ot'..J I.)AL ( t VI:) Eo'$) C30TD 410,420, ,..U O . 
440 
41 
3 t ;.'p e $.= " '1 : ¡:;:ETUF.:t...¡ 
42(1 t :....p Eo.:/:.=" . E:A::;" : F
ETUFJ'.J 
4;;::0 t/pe'$.=" .E:It.J" :F.:ETUF.:H 
440 t....pe.$=" .E:Af-':" :F'ETUPN 
450 REM ----------------------_____ 


460 REM Obtener los 
ombres de fieh 


er.o 


470 
4:::0 
4':;'0 
500 
510 
52

1 
5::::0 
540 
.ar. ::o 


MODE 2:INV 1 ,O:PEN 1 :CAT 
FDR x=1 TCi 61 2TEP 20 
y=4:CALL re.adehar,
ehar ,X,Y 
I...JH 1 LE e h .:<.r' { ::- ::::2 
rramE,'$.( pr'og)="" 
FCiR i=O TO 11 
CA L L r. e 
. d e h a. r . g: e h .:<. r. , .:0( + i ,;:.' 
n.ame$(prog)=namEo$(prog)+CHP$(eh 


550 t'..JE><T 
560 IF INSTR(n
meS(proc).t
pe$) THE 
r,.J p r. ':'9= p r. e ll ;¡ + 1 
570 ,'"="1" + 1 : I=:AL
 r. e 
.dc h -3.r" , 
: e h .
,r' , >
 
 ::.
 
5'::(1 I.dEt.J[' 
:' ';' ¡j t...) E:-:<'T 
,
. 0 O r.'j [1 [" El: F' Et--.¡ 1: 1 t. J f-< 1, 24 
,
.1 [í P r o ,;¡= ¡:, r 09- 1 

,20 IF 
,r'og=O THEN F'RH.JT TAE:0::5)"t'.Jo 
e;. i "::. t e rr f i e h E r o'::. de Eo':: e t ¡po e n e::. t 
e el i :e ':'. . . " : 
OF: i =0 TCi 50 a o : ¡".jE>:T : PU 
t..J 
Ó:::,j F'
PEF.: ::: 


Ó.::1 (1 LOCA TE 1 C1 , 1 : P F.: 1 t..JT " t"1 E t...j U [1 E 


D I 

. e o 11 
'=':: (1 F';'; F' E F.: o 
Ó60 Y=::::num=(prog
2)+0::1 AND progJ 
670 FOP i=1 TO prog 
.=, :=: IJ .....=..... + 1 - 1 +. -: p r. ':' 9 -:; 2 1 :' : 1 F i = rr u rn + 1 T H 
EN Y=4-1*\Drog(21) 
.
, '? o .: r:: o r ,j': I , o :., = 4 + .: 2 [1 AN Di'> rr u m) : e o o 


r':;( i 
 1 "'="r' 


700 LCiCATE o:oor..j( i ,O'.I,coor',j': i .1) 

le PEN 2:PPINT LEFTSO::namEo$( I ),INST 


F: ( rr 
.rTI E' '$. ( i : I 
 11 . 11 ') - 1 .) : 


720 PEN :,::: PP H.JT r'''lI [)'$': rr .
.me'$.,: i ) , H,j:3TR 


.: rr.
.rrrE'!.( I ,) ,11.11») 
7
:O NE><T . 
740 LCCATE 4,25: PHj 3: F'APEF: 1 
750 PF:It-iT " :::::Eo]eccion.",. con ";CHp.$(2 
40"," ;." ",C:HF.:'$.(241:..;" pul sa Et'.jTEF.: 11 


760 i=1 :PEN 1 :PAPER [1 
7'70 (30::;UE
 :::70 
780 WHILE INKEYS(}CHR$(13) 
7°0 IF INKEY(0!)-1 THEN GOSUE: 850:i 
= I + o:: i ':: 1 ) : C30
;U8 :::70 
800 IF INKEY(2»-1 THEN GDSUE: 850:i 
= i - ( i <: p r. O,;¡:-O : (JO
;U8 ::;:71) 
810 FCiP j=l TO 200:NEXT 
;=: .
. 

1 1",1 Et'.J D 
;=::-=:n .¡: i 1 e'$=rr .".me'$.': i ) 
::: 4 O F.: ET U F:t...¡ 
:35(1 L [1 CA T E e o o r. d o:: i , 13 ) - 2 , e o o r. d ( i , 1 ) : 
PR 1 r.-iT 11 ": ::;TF: 1 1'..j8'$. (' 14, C:HR$ (':;') ) ; 11 " 
::::;,::;,(1 F:ETUF::t'.j 
:::: 7 O L Ci CA T E e e, o r. d ( i ,[1) - 2 , e o o r. d ( i , 1 )': 
PRINT CHP$0::243)
STRING$(14.CHR$(9») 
; CHR$. ( 242) 
:3::::0 RETUFt..J 
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Para que lus dedo, 
no rea),c.n ellrabola duro, M H. AMS 
TRAD /" hc,e par .',. Todas los lisiados Que ¡nduyan 
este logotJpo se enl..uenfrO!1 a lu dis()Os¡cion en un cas- 
,elle mensuol. sol,Ó/onoslo. 
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Existen gran cantidad de métodos l exclusivamente basados en la suerte para rellenar 
una quiniela: dados l bolígrafos mágicOS I matrículas de coches l hombre 1 1 mujer XI niño 
2 1 etc. 
Otro método interesante l sobre todo para los poseedores de un ordenador l sería 
obtener los resultados con él. 
Análisis en esta ocasión se adentra en el mundo de los números aleatorios con un 
programa que solamente necesita la ayuda de la suerte para acertar 12 1 13 1 o incluso 
14 resultados. 


10-20 Mensajes REM que contienen el tí- 
tulo del programa y los que lo separan del res, 
to de las líneas. 
30-50 Ciclo WHILE... WEND que contro- 
la el número de apuestas a introducir. 
Si éste es menor que 1 o mayor que 8, el pro- 
grama volverá a preguntarnos el número de 
apuestas, si en cambio aquél está comprendi- 
do entre 1 y 8 el ciclo pasa la ejecución a la 
próxima línea, 
60 Limpia de la pantalla todos los mensa- 
jes anteriores para proceder a la representa- 
ción de los distintos pronósticos. 
70-100 Constituye el ciclo que se encar- 
ga de poner el número de los distintos 
partidos, . 
80 El comando LOCATE se ocupa de situar 
el cursar en la columna 10, fila 5, incremen- 
tanda esta posición en uno cada vez que rota 
el ciclo, para que los números queden en la 
misma columna. 
90 Una vez situado el cursor PRINT repre- 
senta el número de partido correspondiente, 
100 Hace que el proceso se repita 14 ve- 
ces, una por partido. 
110-200 Ciclo principal que se repite 
tantas veces como el número de apuestas que 
hemos seleccionado en la línea 40, 
120-190 Ciclo anidado en el anterior, 
que realiza todo el proceso de cálculo de los 
distintos signos de cada opuesta y su repre- 
sentación en pantalla, 
130 Sitúo el cursor en la columna 13, fila 
5. Cada vez que rota este segundo ciclo, la 
fila se incremento en una unidad consiguien- 
do de esta forma que los signos queden en- 
columnados. Cuando este ciclo se ha comple- 
tado con los 14 signos, el ciclo principal entra 
en acción, incrementándose en uno el valor 
de la posición, lo que provoca que en la pró- 
xima columna de signos la posición se encuen- 
tren desplazadas 2 columnas, Formando de 
esta manero en cada pasada del ciclo princi- 
pollas distintas columnas de apuestas. 
140 Calcula un valor aleatorio compren- 
dido entre 1 y 13. 
150 Comprueba si la variable VALOR, 
calculada en la línea anterior, es mayor que 
O y menor que 8, asignándole en este caso el 
signo 1 a la variable SIGNOS$, 
160 Chequeo si el valor está comprendi- 


do entre 8 y 11, asignándole el signo XX, en 
caso afirmativo, 
170 Realiza la misma operación con los lí- 
mites 11 y 14, asignándole el valor 2, en caso 
de estar comprendido entre ellos. 
180 Representa en pantalla el valor con- 
tenido en SIGNOS$, éste aparece en la posi- 


ción marcada por el LOCA TE de la línea 130. 
190 N EXT que cierra el ciclo secundario, 
que calcula y representa los signos de los par- 
tidos. 
200 Es el NEXT que concluye el ciclo prin, 
cipal, responsable de situación de las distin- 
tas columnas de signos, 
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10 REM GENERADO' ,- .UINIEL'S 
o REM ********************** 
o WHILE apuestas<l OR apuestas>8 
'o INPUT"CUANTAS APUESTAS";apLle
tas 
50 WEND 
60 CLS 
o FOR numeros=l TO 14 
80 LOCATE 10,numeroS+5 
-o PRINT numeros 
00 NEXT numeros 
10 FOR posiC!on=l TO apues 
20 FOR partidos=l TO 14 
30 LOCATE 13+2*posiclon,par l'OS+
 
40 valor=RND*13+1 
50 IF valor>O AND valor<8 THEN sig 
oS="1 ti 
160 IF valor>8 AND valor<11 THEN si 
gnoS="X" 
 
170 IF valor>11 AND valor<14 THEN , 
igno$zfl2" 
180 PRINT signo. 
190 NEXT partidos 
200 NEXT posicion 
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( Tercera parte de la Serie ) 
Animación en Basic para 
Amstrad 


Una vez conocidas las f'écnicas 
básicas de la animación, vamos a 
enf'rar en los pequeños def'alles, que 
permif'en reproducir los movimienf'os 
reales. 
La inclusión de choques, rebof'es, 
movimienf'o sin fin, ef'c., ayudará a 
mejorar nof'ablemenf'e nuesf'ros 
programas, infundiéndoles la vida 
que necesif'aban. 


n este artículo, el último de lo serie 
de animación, avanzaremos un poco más por 
estos interesantes métodos que ayudan a me- 
jorar la animación. 
Como yo sabemos, el Amstrad tiene dos 
tipos de cursores, uno poro los textos y otro 
paro los gráficos. Normalmente, el comando 
PRINT realiza los textos con el cursar de tex, 
. tos (la gran mancha cuadrada). Pero utilizan- 
do el comando TAG podemos dirigir el texto 
de la instrucción PRINT en lo posición que tie, 
ne el cursar de gráficos. El comando T AGOFF 
invierte el proceso, 
El cursar de gráficos, que es invisible, pue- 
de colocarse en cualquier punto (pixel) de la 
pantalla, o diferencio del cursar de textos que 
sólo puede moverse en celdas definidas de ea, 
raeter, 
De manera que una vez se ejecute T AG el 
texto también puede imprimirse desde cual- 
quier punto (pixel). Además, podemos selec- 
cionar la manero de situar el texto en lo pan- 
talla, puede hacerse de tres modos distintos: 
XOR, AND y OR. 
Estos operadores lógicos, como ya sabemos, 
se utilizan paro determinar el color del pixel 
que va a aparecer. Poro nuestro propósito só- 
lo nos intereso XOR. 
Vamos o considerar el coso en el que el texto 
esté impreso con el cursar de gráficos, XOR 
se utiliza poro calcular los colores resultantes 
y estamos en Modo l. 
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Imprimir y borrar 
caracteres 


Si tenemos un fondo azul (color O) yescribi- 
mos un caraeter amarillo (color 1) el resulta- 
do será amarillo porque O XOR 1 = 1 (amari- 
llo). 
Pero si ahora queremos escribir este mismo 
caraeter -con el mismo color- encima del ca- 
raeter anterior, éste desaparecerá, porque 1 
(amarillo) XOR 1 (amarillo) = O (azul). Así que 
a cambio de sacar en pantalla otro caraeter 
borramos el anterior, 
Utilizar la opción XOR nos permite sacar ca- 
racteres en pantalla y borrarlos, repitiendo lo 
misma operación, Ahora que esto yo nos su e, 
no a conocido, vamos o utilizarlo. 
El Programo 1 hace exaetamente esto. Usa- 
remos los teclas Z y X poro mover o don Son- 
risitas a izquierda y derecho. 
La línea 30 selecciona el modo XOR paro 
escribir. 
La línea 40 inicializa lo coordenada X en O. 
La línea 50 saco en pantalla o Don Sonrisi- 
tas usando la subrutina formado por los líneas 
90-130, 
La línea 60 compruebo si se está pulsando 
la tecla Z. Si es así, se suprime el caraeter (con 
el primer GOSUB 90) y se desplaza una cel- 
da de caraeter a lo izquierda (X= X-16). 
Ahora don Sonrisitas se ha desplazado a su 
nuevo posición (con el segundo GOSUB 90). 
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Este paso no se ejecuta si don Sonrisitas es- 
tó en el borde izquierdo de lo pantalla, cuan- 
do x=o. 
Lo línea 70 vigila lo tecla x se empleo, otro 
vez, GOSU B 90 poro borrar y sacar en pan- 
talla a don Sonrisitas. El caracter se mueve una 
celda de caraeter o la derecho sumando 16 
o X, Tampoco se mueve el caraeter si está 01 
borde derecho de la pantalla en este coso. 
La línea 80 «salta)) hacia atrás, o lo 60. 
Lo línea 90 mueve (MOVE) el cursar de grá, 
ficos o lo posición aetual de don Sonrisitas. 
Lo línea 100 hace que todos los textos va- 
yan o lo posición del cursar gráfico. 
Lo línea 110 imprime el caraeter don Sonri- 
sitas en el cursar gráfico. 
Lo línea 120 devuelve lo solido del texto 01 
cursor de textos. 
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Las líneas 90.130 se utilizan para sacar en 
pantalla y borrar caracteres. Lo que ahorra 
repetir líneas similares en los programas. 


Inconvenientes del XOR 


Una demostración de las desventajas de 
XOR se añade en la siguiente línea del pro, 
gramo: 
25 LOCATE 20,16: PEN 3: PRINT «XOR 
es ingenioso)), 
Ahora veamos qué ocurre cuando movemos 
o don Sonrisitas por el texto. El cyan (color 2) 
aparece donde don Sonrisitas y el texto se so- 
lapan. 
Pero ¿de dónde viene el eyan? ¡No 
hemos escrito nada en cyan! En efecto, el cyan 
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 Coordenadas gráficas, 
I 


639 



 40 


25 Coordenadas de texto, 


Diagrama 1: Coordenadas de la pan/alla en 
Mode 1. 
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aparece porque 1 don Sonrisitas amarillo) 
XOR 3 (el texto es rojo) = 2 Cyan). 
Si esto le parece chino no se preocupe, el 
CPC 464 hace el cambio de color. Puede sa- 
ber más sobre color con BITS and BYTES de 
mayo, pero ¡no lo use sin entenderlo! 
Cambiemos de tema, algunos movimientos 
que tienen los objetos están restringidos, En 
el Amstrad, estas restricciones son los mo, 
vimientos en los bordes de la pantalla. 
El mejor modo de parar un objeto en movi- 
miento, yendo a un «prohibido el paso», 
es guardar un registro de esa posición, Sabien, 
do donde está un objeto se nos permite con. 
trolar que cualquier futuro movimiento no se 
realice fuera de los límites definidos, 
Estos límites no tienen por qué ser los bar, 
des de la pantalla necesariamente, Pueden ser 
cualquier parte de la pantalla que elijamos, 


I 
I 


MICROHOBBY AMSTRAD 25 



Movimiento y rebote 
El Programa 11 hace botar una bola en sen- 
tido diagonal alrededor de la pantalla en Mo' 
do 1, Las variables X e Y contienen las coor- 
denadas x e y de la bola, Estas corresponden 
a las posiciones de las coordenadas de texto 
en la pantalla, Vamos a ver como trabaja, 
La línea 30 inicializa X e y, 
La línea 40 selecciona un número aleatorio 
entre 1 y 4 Y salta a la línea 50 si el número 
es 1, a la 60 si es 2, y así sucesivamente, Esta 
selección da a la bola una dirección aleato, 
no. 
Las líneas 50 a 80 definen el cambio relati- 
vo en la dirección de la bola entre las cuatro 
direcciones diferentes. RX es el cambio relati- 
vo de la coordenada X, RY es el cambio rela- 
tivo de la coordenada y, 
Por ejemplo, la línea 70 indica que el cam, 
bio en X será 1 (RX = / es la manera de mover 
la bala a la derecha en una celda de carac, 
ter) y el cambio en Y será -1 (RY =-/ es la 
manera de subir la bola una fila de carácter), 
Mover un objeto a la derecha y arriba es 
lo mismo que mover la bola al noreste donde 
el norte es la parte superior de la pantalla, 
La línea 90 vigila que la coordena,da X per- 
manezca dentro de la pantalla al mover la bo, 
la en la nueva dirección, Si la bola saliera de 
la pantalla se selecciona una nueva dirección- 
el programa salta a la línea 40, 
La línea 100 hace lo mismo que la 90 pero 
con la coordenada y, 
La línea 110 coloca el cursor de texto en la 
posición anterior de la bola y la borra hacien, 
do PRINT CHR$(32) un espacio. 
La línea 120 calcula la nueva posición de la 
bola. 
La línea 130 dibuja la bola. 
La línea 150 continúa el movimiento en la 
misma dirección saltando a la línea 90, 
Por el momento la bola sólo cambiará de 
dirección si choca contra el borde de la pan- 
talla. Si añadimos la línea siguiente la bola ten- 
drá también la oportunidad de cambiar de di. 
rección siempre que quiera, Veamos si pode- 
mos hacerlo funcionar. 


140 IF INT (RND(1)*20)= 10 
THEN 40 


Choques con cambio de 
banda 


El Programa 11I controla los choques con los 
límites, En este caso se traslada aliado opuesto 
de la pantalla cuando encuentra un límite en 
lugar de cambiar de dirección. 
Las líneas 100 a 130 son las responsables 
de controlar si la bola está fuera de los lími. 
tes, Si es así, las coordenadas X e Y se ajustan 
convenientemente, 
Por ejemplo, si una bola está en la coorde- 
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10 REM PROGRA
1A I 
20 MaDE 1 
30 PRINT CHR$(23) ;CHRS'11 
40 X-0 
50 GOSlIS 90 
60 IF INKEYI71 )c0 Ai'lD >( 0 THE
I GOSlI 
s 90:X=X-ló:G03US 90 
70 r F INKEY(63) 0 AND X(Ó23 THE
I GO 
SUB 90:X X+ló:GOSU8 90 
S0 GOTO ó0 
90 MOVE X,! 50 
100 TAG 
110 PRINT CHRS(224): 
120 TAGOFF 
130 RETURN 


10 REM PROGRAMA I1 
20 MODE 1 
30 x-s: Y=5 
40 01'1 1 NT (Rt,[1I I ) >4 \+ I GOTO 50,60.70 
, S0 
50 RX--l :RY--I :GOTO 90 
60 RX--I :RY-l :GOTO 90 
70 RX=I :RY=-I ¡GOTO 90 
80 RX 1 :RY-I 
90 IF IXtRXHl OR (XtRX»39 THEt, 40 
100 IF IY+RYHI OP (Y+Ry)24 THEI'J 
 
o 
110 LOCATE X,Y:PRJlH CHRS(32): 
120 X-X+RX:Y-Y+RY 
130 LOCATE X,Y:PRlrH CHP$(231); 
150 GOTO 90 
I 


\ 
 REI1 PF:OGRA'1A 1 1 1 
20 MODE 1 
30 X=5:y c 5 
40 LOCATE X,Y:PRINT CHR$(231) 
50 ON INTIPNDIJ)-4)tl GOTO ó0.70,80 
.°0 
60 RX -1 :RY--\ :GOTO 100 
7
 R>C -1 :RY-I :GOTO 100 
S0 RX=1 :RY--I :GOTO 100 
90 ¡;.x 1: RY \ 
100 IF 'XtRX)(l THEN GOSUB 190:X=40 
:GOTO 160 
110 IF IX+RX»39 THEN GOSUB 190:X-l 
:GOTO ló0 
120 IF (YtRY)(1 THEN GOSUB 190:Y 24 
: GOTO 1 60 
130 IF ,YtRY)}24 THEN GOSUB 190:Y-1 
:GOTO 160 
140 GOSUB 190 
150 X-XtPX:Y Y+RY 
160 LOCATE X,Y: PRINT CHRS(231); 
170 IF INTIR
JD(!)*IS)t1-10 THEN 50 
180 GOTO 100 
190 FOR RETARDO-l TO 50:NEXT RETARD 
o 
200 LOCATE X,Y: PRINT CHR$(32); 
210 RETURN 
I 


10 REM PROGRAMA IV 
20 MODE I 
30. Y 1: Y 1 4 
40 LOCATE INTIRND(I)*20)tIS,Y 
50 PRINT CHR$(143) 
60 LOCATE X,Y 
70 PRINT CHR$(224) 
S0 lF TEST(X*16,1«26-Y)*\6)-1)<)0 
THEN END 
90 FOR r.tardo-! TO S0:NEXT r.tardo 
100 LOCATE X,Y 
110 PRINT CHRS(32) 
120 X Xt 1 
130 GOTa 60 


nada X 40- a mano derecha en el borde de 
la pantalla y movemos al noreste, la nueva 
coordenada X será 41, 
Pero esto está fuera de la pantalla- el Mo, 
do 1 sólo tiene 40 caracteres por línea, así que 
la línea 110 hará comenzar a X en 1- el bor- 
de izquierdo de la pantalla, Lo mismo ocurre 
si la coordenada Y sale fuera de pantalla, 
Si se siente capaz, puede intentar hacer que 
la bola se mueva vertical y horizontalmente 
aunque no al mismo tiempo, 
Finalmente vamos al Programa IV, Teclee y 
pulse RUN, Veremos a don Sonrisitas pasear- 
se cruzando la pantalla hasta que se choca 
contra un obstáculo colocado aleatoriamente, 
¿Qué hay de ingenioso en esto? La 
respuesta es detectar la colisión, 
Lo que tenemos que hacer es probar si el ca' 
racter puede moverse a la siguiente celda de 
caracter, Se hace mirando a la esquina supe- 
rior izquierda de la celda de caracter a ver si 
está señalado algún pixel. Se hace con el co- 
mando TEST como su propio nombre indica, 


I 


Detección de choques 
TEST x, y devuelve el color del pixel que se 
encuentra en las coordenadas de gráficos x, 
y, Si el color del pixel es el mismo del fondo, 
el caracter puede moverse sin peligro, porque 
no ha chocado contra nada. De otro modo, 
si encuentra un color diferente al del fondo, 
indica que ha tropezado con un objeto. 
El problema que presenta es que las coor- 
denadas x e y para gráficos no son las mis- 
mas coordenadas que para textos, Echemos 
un vistazo al Diagrama 1, 
Así es que necesitamos convertir las coor- 
denadas de textos a las de gráficos para que 
podamos examinar el color del pixel. 
La instrucción siguiente devolverá el color 
del pixel superior izquierdo de un coracter si- 
tuado en las coordenadas de texto X, Y - só- 
lo en el Modo 1: 
colpix= TEST 
((X-l)* 16,(((26- Y)* 16)-1)) 
Observe que solamente se examina el pixel 
superior izquierdo del caracter. Si miramos la 
línea 80 veremos la ecuación. 
Si le extraña que (X-/) * 76 sea X* 16 en el 
programa recuerde que estamos chequeando 
un carácter antes en la dirección del eje X, Así 
que (X-/ + 7) * /6 se convirtió en X* 16. 
La línea 40 sitúa un obstáculo aleatorio en 
la misma línea como «guardia de la po. 
rra». 
Actualmente debe ser capaz de entender el 
resto del programa. 
Y este es el final de la serie, Esperamos ha- 
berle dado más ideas para que realice su pro- 
pia animación, 
Como ve, la animación es bastante fácil y 
puede realizarse usando unos comandos So' 
sic muy sencillos. Ahora le toca a usted escri- 
bir sus propios programas de animación. Es- 
peramos con ilusión ver alguno. 
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REVISTA INDEPENDIENTE PARA USUARIOS DE ORDENADORES AMSTRAD 
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LE OFRECE AHORA SUS 
PROGRAMAS Y A GRABADOS, 
PARA QUE VD. NO TENGA QUE 
TECLEARLOS 


Todos los programadores y aficionados a la 
microinformática sabemos lo tedioso y propenso a 
errores que resulta el teclear un listado de un 
programa. Para facilitar tu labor al máximo y que no 
tengas que estar horas sobre el teclado de tu 


ordenador tratando de descifrar incomprensibles 
mensajes de error, AMSTRAD SEMANAL te ofrece 
cada mes los programas publicados de los cuatro 
números correspondientes en una cinta de cassette, 
sólo por 675 ptas. (sin más gastos por envío). 
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Todos 105 programas de nuestras cintas se encuentran 
desprolegidos, con el objeto de facilitar su copia en disco 
y la revisión de 105 listados. 


Progromas incluidos en la cinta número 1 
Título Revista número 
EASYDRAW 1 
EGGBLlTZ 2 
CODIGO SECRETO 2 
VENTANAS 2 
BIORRITMOS 3 
MAD ADDER 3 
HEXER 3 
CHARGEN 4 
PROGRAMACION 4 
Programas incluidas en la cinta número 2 
Título Revista número 
GRAFICOS 8 
MUSICA 6 
TRON 6 
ENSAMBLADOR 8 
HEXERL 8 
TOOLKIT 8 
PRIMEROS PASOS 7 
INCOGNITON 7 
MONITOR S 
ANALlSIS 5.8 
CEDRIC 8 
ANIMAClON I 7 
ANIMACION2 8 
SMALEY 7 


· S COn \0 
En".a no posible, 
enor demora ndiente. 
m . n correspo 
el cupo 
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De la teoría a la práctica no hay más que un paso, 
pero a menudo es largo y difícil. Ya que tenemos a 
nuestra disposición un iuego completo de , 
herramientas de programación, vamos a emplearlas 
aprendiendo de paso que el código máquina es 
mucho más que bytes y teoría de números. 


J 


provechando el en- 
samblador publicado en el número 
anterior, además de las pequeñas 
rutinas que se dieron para utilizarlo, 
vamos a estudiar en detalle en el pre- 
sente artículo 3 de ellas, con el do- 
ble objeto de usar libremente el en- 
samblador, enfrentándonos a los po- 
sibles problemas que nos causaría un 
programa normal, y comprobar que 
el lenguaje máquina tiene utilidad 
práctica, que sirve para algo, vaya. 


SENCILLEZ Y BREVEDAD 
ANTE TODO 


Hay que aclarar que, a la hora de 
diseñar estas rutinas, nos hemos en- 
contrado con dos problemas: 
1. la longitud del programa. El 
código máquina es un lenguaje de 
muy bajo oivel, y, normalmente, con 
cada instrucción puede especificarse 
sólo una acción (una línea Basic es- 
pecifica miles de ellas), por lo que he- 
mos tenido que optar por cosas sen- 
cillas y, sobre todo, breves, recu- 
rriendo, a las llamadas al firmware 
en la medida de lo posible. 
2. la necesidad de usar nuevas 
instrucciones. En efeccto, con las ins- 
trucciones de lD, CAll y las que he- 
mos visto hasta ahora, algo puede 
hacerse, pero no todo. Por ello, nos 
hemos tomado la libertad de usar 
instrucciones no explicadas todavía 
en aras de conseguir programas 
operativos, tratando siempre de em- 
plear las menos posibles. De todas 
maneras, serán explicadas, aunque 
brevemente. 
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Nuestras tres rutinas se dividen 
en dos grupos: la número 1 imprime 
en la pantalla un número decimal en 
formato binario, las otras dos mane- 
jan gráficos de formas parecidas pe- 
ro diferentes, y están pensadas pa- 
ra usarse en conjunción con un pro- 
grama Basic, aunque de por sí fun- 
cionan bien. 


RUTINA NUMERO UNO 


Vamos con la mano número l. 
lo primero de todo es ensamblar 
en una dirección, la &8 por ejemplo, 
mediante el directivo ORG. 
Una vez hecho esto, cargamos el 
acumulador (línea 20) con el conte- 
nido de la variable BYTE, el número 
que queremos ver impreso en bina- 
rio y... lo bueno empieza ahora. 
Intentemos analizar la estrategia a 
seguir para conseguir nuestro propó- 
sito; primero los hechos: 
1. Un número binario está com- 
puesto, a la postre, de bits, que pue- 
den valer O ó l. 
2. Como nuestro número está en 
el acumulador, sólo puede tener 8 
bits. 
Ahora el plan: 
lo ideal sería «desmenuzan¡ el 
acumulador bit a bit, de tal modo 
que, si nos encontramos un bit que 
valga 1, imprimir un 1 en la panta- 
lla, y si vale cero, imprimir un cero. 
Esta aproximación permite profun- 
dizar un poco más en nuestra estra- 
tegia: en efecto, según el «hecho» 
número 2, tenemos que bregar con 
8 bits, por lo que la operación de 


, 


'\}. 


«desmenuzar» antedicha habrá que 
repetirla 8 veces, es decir, necesita- 
mos un BUCLE, y no uno cualquie- 
ra, sino uno CONDICIONAL, de 
modo que cuando se halla repetido 
8 veces, se abandone. 
Alguno se estará preguntando, 
primero, como diablos se desmenu- 
za un byte, y segundo, aun en el im- 
probable caso de lograrlo, dónde y 
cómo guardamos los «trozos». 
Bien, al hablar de los registros do- 
bles, dijimos que existía, entre otros, 
el AF, formado por el acumulador y 
el registro de «Flags» o indicadores. 
De momento, tendréis que creer en 
nuestra palabra si os decimos que en 
el registro F se puede guardar un tro- 
zo de byte, un bit. Realmente, es muy 
lógico si lo miramos de una forma 
puramente intuitiva: si ambos regis- 
tros forman cada uno la mitad de un 
círculo, y en cada mitad hay 8 tro- 
zos (bits) , y yo giro una mitad a la 
derecha o a la izquierda en pasos de 
un trozo, uno de estos bits aparece- 
rá en la otra mitad del círculo; si era 
del acumulador, tras el giro se situa- 
rá en el registro F. 



e , I 
-f.' I . . 
. .... .'" 
'- ,.
.. . 

;J"'I , . 
) 
'. . 
" . 
\, 


, j J 
, , 


\\. 


\ I 
'\ 


Justamente eso es lo que 
hace la rutina 1 en gene- 
ral, y la instrucción RLA (lí- 
nea 60) en particular. 
De modo que «gira- 
mos» el acumulador una 
vez, y tenemos un bit suyo en el re- 
gistro F. Ahora miramos si es un 1 o 
un O, mediante la instrucción de la lí- 
nea 80: 


JR C, UNO 
es decir, hacemos un salto relativo a 
la etiqueta U NO si el carry está a 1, 
indicando que el bit que hemos ro- 
tado es l. En la subrutina que co- 
mienza en UNO (línea 120), carga- 
mos el acumulador con 49 decimal 
(código ASe 11 de « 7», línea 730), y 
lo imprimimos por fin en pantalla me- 
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diante la llamada a la rutina firmwa- 
re &BB5A (línea 740), ya vista. 
En el caso de que el carry esté a 
O, indicando que el bit que acaba- 
mos de rotar es un O, la condición de 
la línea 80 no se cumple, por lo que 
el programa continúa en la línea 90: 
cargamos el A con el ASC 11 de «O» 
y lo imprimimos en pantalla, hacien- 
do posteriormente (línea 110) otro 
salto relativo para no repetir la par- 


te de la rutina que se encarga de im- 
primir el «1 ». 
Obviamente, si repetimos todo el 
proceso anterior 8 veces, analizamos 
8 trozos (bits) del A, consiguiendo 
MICROHOBBY AMSTRAD 29 



nuestro propósito, que su contenido 
aparezca en binario en la pantalla. 
Obsérvese las líneas 50, 70, 160 Y 
170. En ellas se realiza algo muy im- 
portante y útil: poner a salvo el va- 
lor actual de cualquier registro do- 
ble antes del advenimiento de una 
rutina que lo alterará (líneas 50 y 70, 
instrucción PUSHL para recuperar- 
lo posteriormente, cuando interese 
(líneas 760 y 770, instrucción POP). 
El lugar donde se guardan o pre- 
servan los registros se llama «Stack!> 
(en español, «pila», «estructura api- 
lada»), y por el momento lo ignora- 
remos. Baste saber que existe y que 
se usa así. 
Guardamos en el stack los regis- 
tros BC y AF porque son cruciales pa- 
ra nuestra rutina, y en todo momen- 
to debemos tener controlado su va- 
lor. 
Así, B es cargado con 8 (línea 30), 
indicando el número de veces que la 
rutina se repetirá, y A (línea 20) con- 
tiene el valor a imprimir en binario. 
Por último, controlamos que el bu- 
cle que comienza en la línea 40 y 
acaba en la 180 se repita sólo B ve- 
ces, mediante la instrucción de la lí- 
nea 180: 
DJNI BUC 
la cual es una orden muy especiali- 
zada del 180 r significa: «Decremen- 
ta el valor de registro B¡ si no es O, 
salta a la etiqueta BUC, y si es O sal 
del bucle y ejecuta la instrucción si- 
!¡Iuiente a ti misma, en este caso REY» 
(DJNZ son las iniciales inglesas de 
Decrement and Jump if Not Zero, li- 
teralmente decrementa y salta si no 
cero). Espero que ahora quede cla- 
ro porque es imprescindible preser- 
var el valor del registro B con PUSH 
BC y recuperarlo con POP BC inme- 
diatamente antes de la instrucción 
DJNI. 


RUTIN' 
NUMERe De 


El programa número 2 está pen- 
sado para imprimir en modo trans- 
parente, es decir, imprimir sobre al- 
go que ya está en pantalla sin bo- 
rrarlo, un caracter de un juego de 
gráficos definido por nosotros mis- 
mos, mediante el comando SYMBOL 
AFTER del Basic. 
La rutina no necesita que se le co- 
munique ningún parámetro, porque 
incorpora una llamada al firmware 
(línea 20) que consigue que el orde- 
nador espere hasta que pulsemos 
una tecla, dejando el resultado en el 
acumulador. 
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10 DATA ORG 8<8000 
20 DATA LD A, (BYTE) 
30 DATA LD B,8 
40 DATA .BUC 
50 DATA PUSH BC 
60 DATA RLA 
70 DATA PUSH AF 
80 DATA JR C,UNO 
90 DATA LD A,48 
100 DATA CALL 8(BB5A 
110 DATA JR SAL 
120 DATA .UNO 
130 DATA LD A,49 ) 
140 DATA CALL 8(BB5A 
150 DATA .SAL 
160 DATA POP AF 
170 DATA PO
' 8C 

. 180 DATA DJNZ 8UC 
9: 190 DATA RET 
1 200 DATA .BYTE 
o 

 210 DATA DEFB 5 
a 
'" 220 DATA END 
o 
lO DATA ORG 8(8000 
20 DATA CALL 8(8806 
30 DATA LD D,O 
40 DATA LO E,A 
50 DATA LD HL,STORE 
60 DATA CALL 8<BBA8 
70 DATA CALL 8,B878 
80 DATA CALL g(BCIA 
90 DATA LO DE, STORE 
100 DATA LO 8,8 
110 DATA .8UC 
120 DATA LD A, <DE) 
130 DATA XOR 255 
140 DATA LD (HU,A 
150 DATA INC DE 
160 DATA LD A,B 
170 DATA LO BC,2048 
180 DATA ADD HL,BC 

 190 DATA LD B,A 

 
<I 200 DATA D.1NZ 8UC 
" 210 DATA RET 
<I 
Q. 
.
 220 DATA .STORE 
a 
Q. 230 DATA DEFS 2048 
Q 
10 DATA ORG 

8000 
20 DATA LO A,l 
30 DAIA CALL 8(BCOE 
40 DATA LO IX,STORE 
50 DATA LD HL. (PMEM) 
60 DATA CALL 8,8C 1 A 
70 DATA LO DE,2048 
80 DATA LD 8,8 
90 DATA . BUC 
100 DATA LD A, ( I X +0 ) 
110 DATA LD (HU ,A 
120 DATA II'JC IX 
130 DATA ADD HL,DE 
140 DATA DJNZ BUC 
- 
- 150 DATA RET 

 
<I 16e! DATA .PMEM 
1: 170 DATA DEFS 
<I 2 
Q 
{!J 180 DATA .STORE 
a 

 190 DATA DEFS 
"- 8 


Necesitamos definir un espacio de 
memoria para que los caracteres se 
ubiquen adecuadamente, y lo hace, 
mas mediante el directivo del ensam- 
blador DEFS, que guarda, en este 1 ! 
caso, 2.048 bytes, espacio para 256 
caraeteres (línea 230). 
Hay cuatro llamadas al firmware, 
relacionadas entre sí de la siguiente 
manera: 
1. CALL &BB06. Espera a que se 
pulse una tecla, como comentába- 
mos antes, y deja el resultado en el 
acumulador. 
2. CALL &BBAB (línea 60). Esta 
rutina requiere dos parámetros: la 
dirección donde queremos cargar los 
caracteres en el registro HL (línea 
50), y el primer caraeter que hay que 
trasladar al nuevo lugar de almace- 
namiento en DEi por eso cargamos 
D con O y E con el caraeter que hay 
en el acumulador (líneas 30 y 40), el 
cual, recordemos, se obtiene direc- 
tamente del teclado. 
Nuestra siguiente tarea es imprimir 
el caraeter elegido en la pantalla y, 
para no tener que darle al progra- 
ma I.a posición como parámetro, re- 
currimos a: 
3. CALL &BB78 (línea 70). La ru- 
tina obtiene la posición aetual del 
cursos de texto en' la pantalla, y la 
deja en el registro HL, en L la colum- 
na y en H la fila. 
Por último, para colocar nuestro 
caraeter en forma transparente so- 
bre lo que haya en ese momento en 
pantalla en esa posición, acudimos 
a: 
4. CALL &BC1A (línea 80). Deco- 
difica la dirección de pantalla que 
encuentra en H L (la cual viene de la 
rutina anterior) y deja el resultado de 
nuevo en HL. 
Después de la línea 90 tenemos el 
siguiente panorama: 
DE apunta a la zona de memoria 
donde se encuentra nuestro juego de 
caracteres, al primero de ellos. 
HL apunta a una dirección de pan- 
talla que corresponde a la posición 
del cursar. 
Todo lo que tenemos que hacer es 
volcar los 8 bytes que constituyen un 
caracter mediante un bucle del mis- 
mo tipo que el del programa 1 (lí- 
neas 770-270). 
En este bucle, si se estudia detalla- 
damente, se verá que sólo hay dos 
órdenes conflictivas (líneas 730 y 
770). 
En la primera, la orden XOR 255 
consigue el efecto de transparencia 
como se verá claramente al estudiar 
este grupo de instrucciones, y la se- 
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gunda se hace nece- 
 
saria debido a la es- 
 
pecial organización 
de la pantalla del Amstrad. De mo- 
mento, por favor, créanos¡ sumar 
2.048 a HL (línea 780)1 consigue que 
HL apunte a la dirección donde de- 
be colocarse el siguiente byte de un 
ca racter. 
Recomendamos el atento estudio 
de este programa, y practicar con él, 
junto con otro Basic que cree los ca- 
racteres definidos. Enseguida se 
comprenderá su lógica de funciona- 
miento. 
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RUTIN. NUMERO 


RESI 


Por último, el programa tres tam- 
bién imprime en pantalla un gráfico, 
pero debemos definirlo antes dándo- 
le los 8 números binarios que lo cons- 
tituyen en el área de almacenamien- 
to (.STORE)I desde Basic con la sen- 
tencia POKE. Es fácil, simplemente al 
ensamblar tome nota de la dirección 
correspondiente a la etiqueta .5TO- 
RE y luego «poke» en ella. 
Lo único nuevo de esta rutina es el 
uso de IX como puntero para inde- 
xar una zona de memoria, y la 110- 


,.>....::"'n,
._ 
¡<:'!,£:,!jÍl 
 
1 


1.r;,:,tr


. .. 
tJ"'}N:!..

(,s . 
t
 
 ') ;{' b;,_ 
.,
r¡:,
 

'-, 
it :
 
'I'JI \.

 ..;Jl
- _" / 
ij
' , 
 
:1-rf
(f
 ' 

 t r 
 ,)/
 

]J 

.
 *!i¥í, I 

 
 ,-""'0.' lo
 . "'1 . , 
I ,¡...:. ,
 
 
 " 1 ::"
:' /21 ; e 
\. u.
-"" t'...... . 
I 8 rk -r:'>
 t J....-';"-.:.::J "'I
 

.' r:i
: .t

' \ 
f.-:- . 
' , " , -'\:Jq,t: l. r. 
. .=WI.J'U'5t'd:
 
 
'] Q :! u-:
: # ,:
j
 
'I. t ';' ;
C, y-e;]
 
'
8 - 
¥
 
1 '61' j,
 \ 
bi I ;
I
{..r I [ J
 

 d

l
 ! 
UJl ¡ ' I
 q 
<g..- - 
\, 


1 
. , 


.
: J 


" 
".l 


:u
 
f"'
 

.q'T1'. 

:'o1 


f.L FRO'HJ\ 


mada firm- 
ware &BCOE 
que, simple- 
mente, pone la 
pantalla en mo- 
do 1, o más exactamente, en el nú- 
mero almacenado en el acumulador 
(línea 20). 
En este caso, el programa necesi- 
ta la posición de pantalla, la cual po- 
keamos desde Basic en .PMEM 1 de 
la misma forma explicada antes. 
Esperamos que estos tres progra- 
mas sirvan de utilidad, y que, usan- 
do vuestra imaginación, lo combinéis 
con el Basic para ver la potencia y 
efectividad del lenguaje máquina. 
NOTA: El manual del ordenador 
explica con claridad cómo salvar en 
cinta/disco código máquina. Las di- 
recciones de comienzo y final de la 
rutina ensamblada, y, por tanto, su 
longitud, se obtienen fácilmente ano- 
tando la dirección de ORG (normal- 
mente &8000) y la última que el en- 
samblador presenta en pantalla al fi- 
nal de la segunda pasada. 
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in duda 
alguna 


A través de esta sección se pre- 
tende resolver, en la medida de lo 
posible, todas las posibles dudas 
que «atormenten» a todas las 
personas interesadas en el mundo 
del AMSTRAD, sean o no poseedo- 
res de uno y, si lo son, se encuen- 
tren en cualquier nivel de destreza 
en su manelo. 
Semanalmente, aparecen en estas 
páginas las consultas de la mayor 
cantidad de usuarios posible; ello re- 
dundará en un mejor servicio y en 
un contacto más estrecho entre to- 
dos nosotros a través de la revista. 
SIN DUDA ALGUNA está 
abierta a todos. 


Queridos amigos: 
Soy un estudiante de informótica y 
como tal lleno de dudas informóticas. 
También soy dueño de un Amstrad 
CPC464. Mi gran curiosidad sobre el 
aparato son las rutinas internas lla- 
madas con el comando CALL, ya que 
en muchos programas son mencio- 
nados sin ninguna explicación. 
Agradecería mucho dicha explica- 
ción o el nombre de algún libro que 
lo explique. 
Esperando que esta pregunta sea 
de su interés y confiando en su res- 
puesta se despide este amigo. 
P.D. Enhorabuena por la revista 
MICROHOBBY AMSTRAD. 
Jesús Pérez Narezo I Madrid 


E/ comando CALL se usa para lla- 
mar desde el Basic a una rutina es- 
crita en lenguaje máquina, que co- 
mienza en la dirección especificada 
por el número que sigue a este co- 
mando. 
Muchos programas, efectivamen- 
te, las usan, bien escritas por el pro- 
pio autor o bien aprovechando las 
rutinas del Firmware, que ya están 
escritas en la memoria de la máqui- 
na. E/libro del Firmware del Ams. 
trad analiza todo esto con todo lujo 
de detalles. 


1/ tlIT,- 
,-'-D'I 
 


Ordenadores personales y de gestión 
Aplicaciones para arquitectura 
· Amstrad · Dragón 
· Sinclair · Imprcsoras 
· Commodorc · I\.\onitores 
· PhiJips . Periféricos 
· Canon . Libros 
· S p e e t r a v í d c o · Revistas 
Servimos 11 pro,'incias 
CI /ll/rqllillo. 15. 
Teléfo//o: (91) 2325737. tvfl/drid. 


COLABORADORES: 


Si eres poseedor de un Amstrad, tienes 
conocimientos de programación en Basic u 
otros lenguajes y te sientes capacitado 
para escribir acerca de un determinado 
tema directamente relacionado con el 
mundo de Amstrad, envíanos una carta 
mecanografiada, indicando los siguientes 
datos: 
Edad 
nombre y dirección 
teléfono de contacto 
relación de tus conocimientos 
lenguaje que dominas 
Se valorará el conocimiento del inglés, 
Dirigirse a: 
C/ La Granja, sIn. Polígono Indus- 
trial de Alcobendas (Madrid) indi- 
cando claramente en el sobre 
AMSTRAD SEMANAL 


- -.. ..-.. ..--- 
........- -........ .... .... 
.. .. .. --.. ...... .... .... 
.. .... .. ...... .. - - 
.. .. .. ..-.. - .... .... .... 
............... ..........- 
- -- -- - ..--- 


COMANDANTE ZORlTA, 13 
28003 MADRI D 


AMSTRAD 464 Verde 
AMSTRAD 6128 Verde 


DISKETTE 3" 


SOFTWARE ENTRETENIMIENTO (CASSETTE) 
COMBA T L YNX 1.975 ptas. 
DEAD PIT 1.925 ptas. 
BEACH HEAD 2.395 ptas. 


- -.. ..--- 
-..- -....-.... 
- .. ........ .... 
- ------- 
- - ..- -.. .... 
-..- --..., .... 
- --.... -.... 


TElS.: 191) 233 07 35 
(91 )233 07 81 


57.900 ptas. AMSTRAD 464 Color 
99.900 ptas. AMSTRAD 6128 Color 
INTERFACE DISCO 5.25" 
950 ptas. CINTA C-15 ESPECIAL ORDENADOR 


ALlEN-8 
KNIGHT LORE 
JUMP JET 


1.875 ptas. 
1.875 ptas. 
2.595 plas. 


LIBROS 
CURSO AUTODIDACTICO BASIC AMSTRAD 
(Contiene manual y das cassettes) 
HACIA LA INTELIGENCIA ARTIF, 


84.900 ptas. 
117.500 ptas. 
5.900 ptas. 
85 ptas. 


EXPLODING FIST 
GREMLlNS 
DECTATHLON 


2.095 ptas. 
2.095 ptas. 
1 .920 ptas. 


2.695 ptas. 
1.300 ptas. 


40 JUEGOS EDUCATIVOS 
MUSICA y SONIDO PARA AMSTRAD 
PROGRAMANDO CON AMSTRAD 


1.800 ptas. 
1.300 ptas. 
1 .900 ptas. 


Tu pedida la puedes recibir contra reembolsa (libre de gastos), llamando a las teléfonos: (91) 233 0735 y (91) 2330781. 
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¡NUEVO! 
SIEMPRE LOS PRIMEROS 
EN TENER LO ULTIMO 
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ORA GONTORC 
Cerca de 200 pantallas éon miles de 
objetos diferentes y més de cien 
personajes con animación en tres 
dimensiones, hacen que de este juego Id 
revista inglesa Crash Micro haya llegado a 
decir «Oragontorc es lo mejor que hemos 
visto en juegos de acción y aventura". 
P.V.P.: 2,300 ptas. 
Precio Socios c. de 50ft: 2.070 ptas. 
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/ 
P.o de la Castellana, 268, 3.° C. 28046-MADRID. 
Tel.: (91) 733 25 00 


LlVE OUT YOUR DREAMS 
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SOUTHERN BELLE 
Siente la emoción de conducir una . 
locomotora de vapor, através de un 
maravilloso recorrido desde Londres a 
Brigthon, manejando la caldera, el silbato, . 
atravesando túneles, etc: Estamos ante 
uno de los juegos més brillantes y 
originales aparecidos para ordenador. . 
P.V.P.: 2,300 ptas, 
Precio Socios C. de Soft: 2.070 ptas. 41 
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RAID OVEfl M9SCOW 
Defiende a.USA y Canadé del ataque 
nuclear que ha lanzado Rusia contra 
ellos. Con tu escuadrilla habrás de hacer 
un viaje lleno de peligros hasta llegar al 
mismisimo Kremlin y destruir las bases de 
lanzamiento soviéticas. Gráficos y acción 
sensacionales. 
P,V.P,: 2.300 ptas, 
Precio Socios C. de Soft: 2,070 ptas 
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ás de pOder adquirir tus pro- . 
gramas al mejor precio, recibirás información de forma p
riódica y gratuita, del mejor software que apa- . 
rezca en el mercado. 
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 J)? ASldefacll: envla- 
.nos por correo tu nombre, dirección y modelo de ordenador, o bien, pide por teléfono o por correo tu pri- . 
mer programa. ¡y entrarás a formar parte del CIRCULO DE 80FT de forma inmediata! 
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. -.. ... 
. 
-.- - - - - - - - - - - - - - - - - - - - - - - - - -- 


o si. quiero ser SOCIO desde hoy mismo del CIRCULO OE SOFT y recibir periódicamente información de novedades de software. así como beneficiarme desde hoy mismo de los pre- 
cios reducidos reservados a los SOCIOS y de sus Ofertas Especiales. El ser SOCIO no rre obliga a COl11Jra alguna. 
Si prefieres formalizar tu compra por teléfono puedes hacerlo llamando al (91) 733 25 OO. ¡iNO SE COBRAN lOS GASTOS OE ENVIO POR CORREO!! 
TITULO P,V,P. ORDENADOR 


o Conrrarreembolso O Giro Postal 


o T ar¡ela VISA n.' 


o Talón adjunto a Microamigo, S.A 
Apellidos 


Nombre 
Domicilio 
Localidad 


Fecha caducidad 


Edad 


Teléfono 


C.P. 


Provincia 




erca4o 
CORlun 


Con el objeto de fomentar las rela- 
ciones entre los usuarios de AMSTRAD, 
MERCADO COMUN te ofrece sus pági- 
nas para publicar los pequeños anuncios 
que relacionados con el ordenador y su 
mundo se ajusten al formato indicado a 
continuación. 
En MERCADO COMUN tienen cabida, 
anuncios de ventas, compras
 clubs de 
usuarios de AMSTRAD, programadores, 
y en general cualquier clase de anuncio 
que pueda servir de utilidad a nuestros 
lectores. 
Envíanos tu anuncio mecanografiado 
a: HOBBY PRESS, S.A. 
AMSTRAD SEMANAL. 
Apartado de correos 54.062 
28080 MADRID 
¡ABSTENERSE PIRATAS! 


................. 


Vendo Amstrad CPC-664 disk, 
Monitor color, nuevo y con 
garantía, comprado en julio, con 
todos sus programas y con 4 
diskettes de obsequio, todo por 
112.000 ptas. Tel. (977) 3203 13 
Y Apdo. 480 de Reus (Tarragona). 


................. 


Vendo «Sinclair QL» con 
garantía Investrónica, muy poco 
uso. Incluyo un libro manual de 
referencia en castellano y un 
juego de ajedrez. Todo por 
115.000 ptas. Negociables. Luis 
(91) 270 81 68. 


................. 


Desearía contactar con usuarios 
del CPC 464 para intercambio de 
ideas, información, etc. Dirigirse a 
Vicente Belaguer Gómez. Avda. 
José Antonio, 81. Onda 
(Castellón), o llamar al teléfono 
(964) 60 29 63. Les saluda 
dándoles las gracias. 


................. 
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Urge vender Amstrad CPC-664 
(diskette y monitor de fósforo 
verde); totalmente nuevo. Regalo 
joystick, programas en diskette, y 
dos diskettes con el lenguaje Logo, 
CP/M y Utilidades y seis 
Programas Comerciales. La 
dirección es: Angel Calva 
Bustamante. Juan José Pérez del 
Molino, 11 - l. o D. 39006 
Santander. T el. (942) 37 24 40 
(llamar de 1 a 3.30 PM). 


ti 


................. 


Intercambio todo tipo de 
programas en cassette para el 
Amstrad CPC 464. Escribir a: Luis 
Antonio Cortiñas Rodríguez. 
Alfredo Brañas, 6 - l. o A, 
Escalera A. Santiago (Coruña). 


................. 


Vendo Amstrad 464 con disco y 
un completo paquete de software 
de gestión. Precio muy 
interesante. T el. (91) 269 98 33. 


GANA 100.000 PESETAS 
CON MICROHOBBY 
AMSTRAD SEMANAL 


Porque pretendemos que AMSTRAD SE- - Todos estos datos deberán ir escritos a má- 
MANAL sea también vuestra revista, hemos quina o con letra cloro para mayor comprensión 
abierto una sección en la que se publicarán los del programa, 
mejores programas originales recibidos en nues- - En una sola cinta puede introducirse más 
tra redacción, Vosotros seréis 105 encargados de de un programa, 
realizar estas páginas, en las que podréis apor- - Una vez publicado, AMSTRAD SEMA- 
tar ideas y programas interesantes para otros NAL abonará al autor del programa de 
lectores. 15.000 a 100.000 pesetas, en concepto de 
Las condiciones son sencillas: derechos de autor, 
- Los programas se enviarán a AMSTRAD - Los autores de los programas selecciona- 
SEMANAL en una cinta de casseHe, sin protec- dos para su publicación, recibirán una comuni- 
ción en el software, de forma que sea posible cación escrita de ello en un plazo no superior 
obtener un listado de los mismos, a dos meses a partir de la fecha en que su pro. 
- Cada programa debe ir acompañado de grama llegue a nuestra redacción. 
un texto explicativo en el cual se incluyan: - AMSTRAD SEMANAL se reserva el de- 
- Descripción general del programa, recho de publicación o no del programa. 
- Tabla de subrutinas y variables utilizadas, - Todos los programas recibidos quedarán 
explicando claramente la función de cada en poder de AMSTRAD SEMANAL. 
una de ellas, - Los programas sospechosos de plagio se- 
- Instrucciones de maneio. rán eliminados inmediatamente, 
¡ENVIANOS TU PROGRAMA! 
Indicando claramente en el sobre: 
AMSTRAD SEMANAL 
a HOBBY PRESS, S. A. La Granja, n. o 8. Poi. Ind. Alcobendas (Madrid) 
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SOLICITUD DE CINTAS DE PROGRAMAS Y NUMEROS ATRASADOS 


o Deseo recibir en mi domicilio, al precio de675 ptas. cada una,/as siguientes cintas con los programas 
publicados por Microhobby AMSTRAD Marco con una (X) la(s) cinta(s) que deseo: 


o Cinta n.o 1 (contiene programas pUblicados en revistas 1 al 4 inclusive) 
O Cinta n.o 2 (contiene programas publicados en revistas 5 al 8 inClusive) 
O Cinta n,o 3 (contiene programas publicados en revislas 9 al 12 inclusive) 
O Cinta n.o 4 (contiene programas publicados er. revistas 13 al 16 inclusive) 
O Cinta n.o 5 (contiene programas publicados en revistas 17 al 20 inclusive) 


B 


CJ Deseo recibir en mi domicilio, al precio de 150 ptas. cada uno, los siguientes números atrasados de 
Microhobby AMSTRAD 


Nota: Por razones admlnislrallvas. no podemos admitir soliciludes de envio de cinlas o números sueltos con pago con Ira reembolso o 
Tarjela de Credllo. Por lavor, envia lalón por el importe o giro postal. 
Si la forma de pago elegida es lalón bancallo, remilelo Junio con esle cupón en un sobre cerrado a la misma dilección. 
Las Clnlas de programas se edllan una cada mes. SI solicitas varias las reciblras sucesivamenle, conlorme sean editadas. No se cobran 
gaslos de envio por las cintas y numeras suellos. 


NOMBRE 
APELLIDOS 
DOMICILIO 
CIUDAD 
C.POSTAL 


EDAD 


PROVINCIA 
PROFESION 


TELEFONO 


Marco con una (X) en el casillero correspondiente la forma de pago que mas me conviene. 
O Talón bancario adJunlo a nombre HOBBY PRESS, S. A. O Giro Postal N." 


Firma: 
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SISTEMA COMPLETO CON MONITOR 
EN FOSFORO VERDE, MANUAL EN 
CASTElLANO, GARANTIA OFICIAL 
AMSTRAD ESPAÑA, DISCO CON SIS- 
TEMA OPERATIVO CP 1M 2.2 Y LEN- 
GUAJE DR. LOGO, DISCO CON SISTE- 
MA OPERATIVO CPIM PLUS (CP/M 
3.0) y UTILIDADES, DISCO CON SIETE 
PROGRAMAS DE OBSEQUIO 
109.500 PtS. 
SISTEMA COMPLETO IGUAL AL ANTE- 
RIOR PERO CON MONITOR EN COLOR. 
134.500 Pts. 


ill [U] 
U wffirn 8 
ESPAÑA 
Avd. de Mediterróneo, 9, 28007 MADRID, 
Tels, 433 45 48 - 433 48 76 
Delegación Cataluña: CI, Tarragona, 11 O, 
08015 BARCElONA - Tel, 325 1058 




 


Con 


ciones en 
MERCAD 


nas para 
que relac 
mundo SE 
continua< 
EnMH 


anuncIos 
usuarios, 
y en gene 
que puec 
lectores. 
Envíanos tu anuncio mecanografiado 
a: HOBBY PRESS, S.A. 
AMSTRAD SEMANAL. 
Apartado de correos 54,062 
28080 MADRID 
¡ABSTENERSE PIRATASI 


.......
......... 


Vendo Amstrad CPC-664 disk, 
Monitor color, nuevo y con 
garantía, comprado en julio, con 
todos sus programas y con 4 
diskettes de obsequio, todo por 
112,000 ptas. Tel. (977) 3203 13 
Y Apdo. 480 de Reus (Tarragona). 


................. 


Vendo «5inclair QL» con 
garantía Investrónica, muy poco 
uso. Incluyo un libro manual de 
referencia en castellano y un 
juego de ajedrez. Todo por 
115.000 ptas. Negociables. Luis 
(91) 270 81 68. 


................. 


Desearía contactar con usuarios 
del CPC 464 para intercambio de 
ideas, información, etc. Dirigirse a 
Vicente Belaguer Gómez. Avda. 
José Antonio, 81. Onda 
(Castellón), o llamar al teléfono 
(964) 60 29 63. Les saluda 
dóndo/es las gracias. 


................. 
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Apartado de Correos 


n" 54.062 (Apartados Altos) 


MADRID 


................. 


Vendo Amstrad 464 con disco y 
un completo paquete de software 
de gestión. Precio muy 
interesante. T el. (91) 269 98 33, 


GANA 100.000 PESETAS 
CON MICROHOBBY 
AMSTRAD SEMANAL 


Porque pretendemos que AMSTRAD SE, - Todos estos datos deberán ir escritos a má- 
MANAL seo también vuestra revista, hemos quina o con letra clora para mayor comprensión 
abierto una sección en la que se publicarán los del programa. 
mejores programas originales recibidos en nues- - En una sola cinta puede introducirse más 
tra redacción. Vosotros seréis los encargados de de un programa. 
realizar estas páginas, en las que podréis apor- - Una vez publicado, AMSTRAD SEMA- 
tar ideas y programas interesantes para otros NAL abonará al autor del programa de 
lectores, ] 5.000 a 100.000 pesetas, en concepto de 
Las condiciones son sencillas: derechos de autor. 
- Los programas se enviarán a AMSTRAD - Los autores de los programas selecciona- 
SEMANAL en una cinta de cassette, sin protec- dos para su publicación, recibirán una comuni- 
ción en el software, de forma que sea posible cación escrita de ella en un plazo no superior 
obtener un listado de los mismos, a dos meses a partir de la fecha en que su pro- 
- Cada programa debe ir acompañado de grama llegue a nuestra redacción. 
un texto explicativo en el cual se incluyan: - AMSTRAD SEMANAL se reserva el de, 
- Descripción general del programa, recho de publicación o no del programa, 
- Tabla de subrutinas y variables utilizadas, - Todos los programas recibidos quedarán 
explicando claramente la función de cada en poder de AMSTRAD SEMANAL. 
una de ellas. - Los programas sospechosos de plagio se- 
- Instrucciones de maneio, rán eliminados inmediatamente, 
¡ENVIANOS TU PROGRAMA! 
Indicando claramente en el sobre: 
AMSTRAD SEMANAL 
a HOBBY PRESS, S. A. La Granja, n. o 8. PoI. Ind. Alcobendas (Madrid) 
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SISTEMA COMPLETO CON MONITOR 
EN FOSFORO VERDE, MANUAL EN 
CASTELLANO, GARANTIA OFICIAL 
AMSTRAD ESPAÑA, DISCO CON SIS- 
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MA OPERATIVO CP/M PLUS (CP/M 
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PROGRAMAS DE OBSEQUIO 
109.500 PtS. 
SISTEMA COMPLETO IGUAL AL ANTE- 
RIOR PERO CON MONITOR EN COLOR. 
134.500 Pts. 
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Avd. de Mediterráneo, 9, 28007 MADRID. 
Tels. 433 45 48 - 433 48 76 
Delegación Cataluña: CI, Tarragona, 11 O, 
08015 BARCELONA - Tel, 325 10 58 
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